factorial in factorial

(use slib)
(require 'trace)
(define (factorial n)
  (define (factorial n)
    (if (=  n 1)
      1
      (* n (factorial (- n 1)))))
  (factorial n))

(trace factorial)

(print (factorial 5))

output

CALL factorial 5
RETN factorial 120
120