acker

LIBRARY "CORAL.LIB"

BEGIN
  INTEGER PROCEDURE acker (VALUE INTEGER m,n);
  ANSWER IF m=0 THEN n+1
	 ELSE IF n=0 THEN acker(m-1,1)
	 ELSE acker(m-1,acker(m,n-1));

  writef1("Acker(3,8) = %N*N", acker(3,8));

END
FINISH