byte a(199)
do2
read*,n
k=10
do1 i=0,n
do1 j=199,1,-1
k=a(j)*i+k/10
if(k>0)m=j
1 a(j)=mod(k,10)
2 print'(999i0)',a(m:)
end