a,x=1,1000
while x:a*=x;x-=1
print a