printf"n=$_, p=%.8f
",$a+=--$_/$$*(1-$a)for 2..100