(use numbers)

(define (fac n)
  (if (zero? n)
      1
      (* n (fac (- n 1))) ) )

(print (fac 100))