To fact :X :A
Print :A
FACT :X + 1 :X * :A
End

