my $result = 1;
$result *= $n-- while $k--;