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