; Copyright (c) 1993-1999 by Richard Kelsey and Jonathan Rees. See file COPYING.
; don't copyright this, silly shell script
(define (fact n)
(if (= n 0)
1
(* n (fact (- n 1)))))