1 2 3 4 5 6 7 8
;''Example of a recursive function.'' (define fact (fun (self n) (multiply n (if (gt? n 1) (self self (subtract n 1)) 1)))) (display (fact fact 5))