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

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