(def fact (lambda (n) ( if (_<_ n 2) 1 (_*_ n (fact (_-_ n 1))) ))) ; (def foo fact) ; (set! fact (lambda (n) (_+_ n 1)))