1 2 3 4 5 6 7 8 9
*fact = { if #0 > 1 yield #0 * call fact(#0 - 1) else yield 1 }; *a = 1; for a = 1 to 7 { print stu(call fact(a)), EoL; }; FIN