rem - return n!
def fn.factorial(n)
f = 1
for i = 1 to n
f = f * i
next i
fn.factorial = f
return
fend
print "Factorial Calculator"
print
print " n n!"
print "-------------------"
for k = 1 to 14
print using "## ###,###,###,###"; k; fn.factorial(k)
next k
end