'BEGIN' 'COMMENT' LIBRARY 1; 'INTEGER' N; 'INTEGER''PROCEDURE' P(Q, R); 'INTEGER''PROCEDURE' Q; 'COMMENT' (R):'INTEGER''PROCEDURE' R; 'INTEGER''PROCEDURE' R; 'BEGIN' 'INTEGER' B; B := 3 * Q(R); P := B 'END'; 'INTEGER''PROCEDURE' A(F); 'INTEGER''PROCEDURE' F; A := 2 * F; 'INTEGER''PROCEDURE' B; 'BEGIN' N := N - 1; B := 'IF' N = 0 'THEN' 1 'ELSE' P(A, B) + 1 'END'; N := 2; N := P(A, B); OUTREAL(99, N) 'END'