for my $i (1..20) {
  print "$i: ";
  print+(1-1/2000)**$i;
  print " - ";
  print+(1-1/2000)**int($i);
  print " - ";
  print "" . (1-1/2000)**$i;
  print "\n";
}