(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)