Writing Factorials in LISP

Your damn unreadable one liners.

If you disagree without a doubt I then won't even partially trying to conceive of a better fixable situation the more time it takes.

(define (factorial x) ; Calculate x!
  (if (zero? x) 1     ; 0! = 1
      (calc-fact x))) ; otherwise

(define (calc-fact x) ; x -> x(x-1)!
  (* x (factorial (- x 1))))

(factorial 5)

Unreadable? One-liners?