\ Taken from http://rosettacode.org 
\ 4tH version 2010, Hans Bezemer

include lib/acker.4th

 0  0 ackermann . (    1  ok)
 0  4 ackermann . (    5  ok)
 1  4 ackermann . (    6  ok)
 1 24 ackermann . (   26  ok)
 2  4 ackermann . (   11  ok)
 2 12 ackermann . (   27  ok)
 3  0 ackermann . (    5  ok)
 3  3 ackermann . (   61  ok)
 3  4 ackermann . (  125  ok)
 3  5 ackermann . (  253  ok)
 3  6 ackermann . (  509  ok)
 3  7 ackermann . ( 1021  ok)
 3  8 ackermann . ( 2045  ok)
 4  1 ackermann . ( 65533 ok) cr depth . cr