> perl -e ' $x=1; $x*=(1e7-$_)/1e7 for 1..3723; print $x '
0.499919268547978