fact.scm

   1 ; Demo scheme source file.
   2
   3 (define (fact n)
   4         (if (= n 0)
   5                 1
   6                 (* n (fact (- n 1)))))
   7
   8 ; Done!