object s,r
s={1}for n=1to 1000do
r=0for k=length(s)to 1by -1do
r+=s[k]*n
s[k]=remainder(r,10)r=floor(r/10)end for
s=sprintf("%d",r)-48&s
end for
puts(1,s+48)