byte::a(2568)=0;k=10;do1 i=1,1e3;do1 j=2568,1,-1;k=a(j)*i+k/10;1 a(j)=mod(k,10);print'(9999i0)',a;end