((fn (fact)
  (letrec (loop (fn (x) (if (zero? (- 10 x))
                            #t
                            ((fn (y) (loop (+ x 1))) (print (fact x))))))
    (loop 0)))
  (letrec (fact (fn (x) (if (zero? x) 
                            1
	                    (* x (fact (- x 1))))))
    fact))