anarchy golf - the source code

Factorial by yuko

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

Note that non-ascii characters in the above source code will be escaped (such as \x9f).