sub not_so_nice {
  my ($n, $r) = @_;
  my $res = 1;
  for my $i (1..$r) {
    $res *= ($n-- / $i);
  }
  return $res;
}