mais c'est encore plus beau comme ça :

(define (factorial n)
  (if (<= n 1)
    1
    (* n (factorial (- n 1)))))

scheme > lisp