(define tak (lambda [x y z] (if (not (< y x)) z (tak (tak (1- x) y z) (tak (1- y) z x) (tak (1- z) x y))))) (TAK 5 1 1) ((LAMBDA [X] (X X)) (LAMBDA [X] (X X))) (LOGOUT)