setup <- function() {
  for (m in 0:3) {
    for (n in 0:4) {
      stdout$print(paste(ackermann(m, n), " "))
    }
    stdout$println("")
  }
}

ackermann <- function(m, n) {
  if ( m == 0 ) {
    return(n+1)
  } else if ( n == 0 ) {
    ackermann(m-1, 1)
  } else {
    ackermann(m-1, ackermann(m, n-1))
  }
}