.mau. to dewdney-ita

a[87700],b,c=87700,d,e=1e4,f=1e5,h; main(){for(;b=c--,b>84700;h=printf ("%05d" ,e+d/f) ,e=d%=f) for(;--b;d+=f*(h?a[b]:e),a[b]=d%b,d/=b);}