#!/usr/local/bin/perl
$FRAC=1;
$TOTAL=16000;
for($i=0;$i<2000;$i++){
  $z=($TOTAL-$i)/$TOTAL;
  $FRAC*=$z;
  last unless ($FRAC>.5);
}

print "$i $FRAC\n";