; Demo scheme source file.

(define (fact n)
	(if (= n 0)
		1
		(* n (fact (- n 1)))))

; Done!