;; Takeuchi Function Benchmark
;; heavily recursive, benefits significantly from specialization of integer arithmetic
;; and direct function calls (skipping dynamic dispatch).
;; Output: 5

;; Benchmark: 423.0us
;; Benchmark-Repeat: 6

(do
  (def tak (fn [x y z]
    (if (<= x y)
        z
        (tak (tak (- x 1) y z)
             (tak (- y 1) z x)
             (tak (- z 1) x y)))))
  
  (tak 12 8 4)
)