END{for($285=1;i++<1e3;OFS=_)for(f=286;--f;)if(c+$f){c=$f=i*$f+c/1e9 c-=$f=sprintf("%09d",$f%=1e9)}print 402$0}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page