;;((fn (f y) (f y))
 ;;(fn (x) (* x x))
 ;;2)

;;(((fn (x)
    ;;(fn () (* x x 2)))
  ;;2))

(fn fact (n)
    (if (<= n 0)
        1
        (* n (fact (- n 1)))))


(println "12! =" (fact 12))