User:Icarot

(defn ack [m n]

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

yummmmm.