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}