sub e {
  my ($x, $n) = @_;
  my $result = 1;
  my $product = 1.0;
  for $i (1.. $n) {
    $product *= $x / $i;
    $result += $product;
  }
  return $result;
}

print e($ARGV[0], $ARGV[1]) . "\n";