proc ackerm m n . r .
  if m = 0
    r = n + 1
  elif n = 0
    call ackerm m - 1 1 r
  else
    call ackerm m n - 1 h
    call ackerm m - 1 h r
  .
.
call ackerm 3 6 r
print r