RosettaCodeData/Task/Ackermann-function/Oforth/ackermann-function.oforth

: A(m, n)
   m ifZero: [ n 1+ return ]
   n ifZero: [ A(m 1-, 1) return ]
   A(m 1-, A(m, n 1-)) ;