define f = 1, n = 0

print "Factorial"
print "Enter an integer: " \

input n

do

	let f = f * n

	-1 n

loop n > 0

print f
pause
end