(define tak (lambda (x y z)
(if (not (< y x))
z
(tak
(tak (- x 1) y z)
(tak (- y 1) z x)
(tak (- z 1) x y)))))
(tak 18 12 6)