(define $tak
  (lambda [$x $y $z]
    (if (lte? x y)
      y
      (tak (tak (- x 1) y z)
           (tak (- y 1) z x)
           (tak (- z 1) x y)))))

(test (tak 1 1 1))

(test (tak 4 2 1))