$x=1000;
<>;
for(glob<>){
    $x*=1-$_/1000;
}
print 1000-$x;