User:Icarot

<lang clojure> (defn ack [m n]

 (cond (zero? m) (inc n)
              (zero? n) (ack (dec m) 1)
  :else (ackermann (dec m) (ack m (dec n)))))

</lang> yummmmm.