sub permutation {
	my $prob = 1;
	$prob *= $_ foreach ((($_[0]+1) - $_[1]) .. $_[0]);
	return $prob;
}