;;; -*-Scheme-*-

(define (f n)
  (let fact ((i n) (a 1))
    (if (zero? i)
	a
	(fact (- i 1) (* a i)))))

(print (f 10))
