function factorial(n=real.double)=real.double
    if n = 0 then n = 1 else n = n * factorial(n-1)
end = n

var i=integer
print "Factorial Calculator"
print "  n            n!"
print "----------------------"
for i=1 to 15
    print using "##  #,###,###,###,###";i;factorial(i)
next i
	
end