language-benchmarks/Interpreted/tak-function/tak.clj

(defn tak [x y z]
  (if (< y x)
    (tak (tak (dec x) y z) (tak (dec y) z x) (tak (dec z) x y))
    z))

(println (tak (Integer/parseInt (first *command-line-args* )) (Integer/parseInt (second *command-line-args* )) (Integer/parseInt (last *command-line-args* ))))