(define fact (lambda (n) (begin (say n) (if (<= n 1) 1 (* n (fact (- n 1)))))))
(fact 4)