1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
; This function computes a factorial factorial(n) ;; new f set f=n for do quit:n'>1 . set n=n-1 . set f=f*n . write n," : ",f,! quit f main() ;; set x=5 set y=$$factorial(x) write "Factorial of ",x," = ",y,! quit