byte a(99);do1;a=0;a(99)=1;read*,n;do2 n=1,n do3 i=1,99;k=mod(k,n)*10+a(i);3 a(i)=k/n k=0;do2 i=99,1,-1;k=k/10+a(i)*(n*4-2);a(i)=mod(k,10);2 if(a(i)>0)m=i 1 print'(99i0)',a(m:);end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).