;; this file:
;;   https://dataswamp.org/~incal/scheme/fac.scm

(define (fac n)
  (if (> n 1)
      (* n (fac (- n 1)))
    1) )

(fac 10) ; 3 628 800