#        1         2         3         4         5         6
#234567890123456789012345678901234567890123456789012345678901
m_;--$h?$%=($f[$h]=$h--/2*$%+$f[$h%=7875]%$h*1e8)/$h:+printf$
a?"%08d":"3.",$a%1e8+($a=$%)/1e8for@f=(2)x5e5