integer::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