'BEGIN' 'COMMENT' LIBRARY 1; 'INTEGER' I, J, K, K1; 'REAL' T1, T2; 'INTEGER''PROCEDURE' ACKERMANN(M, N); 'VALUE' M, N; 'INTEGER' M, N; ACKERMANN := 'IF' M = 0 'THEN' N + 1 'ELSE' 'IF' N = 0 'THEN' ACKERMANN(M - 1, 1) 'ELSE' ACKERMANN(M - 1, ACKERMANN(M, N - 1)); K := 16; K1 := 1; 'FOR' I := 1 'STEP' 1 'UNTIL' 6 'DO' 'BEGIN' T1 := CPUTIME; J := ACKERMANN(3, I); T2 := CPUTIME; 'IF' J # K - 3 'THEN' 'BEGIN' OUTREAL(99, I); OUTREAL(99, J) 'END'; OUTREAL(99, T2 - T1); OUTREAL(99, 3 * (T2 - T1) / (512 * K1 - 15 * K + 9 * I + 37) ); K1 := 4 * K1; K := 2 * K; 'END' 'END'