'BEGIN' 'COMMENT' LIBRARY 1; 'REAL' 'PROCEDURE' R(A); 'REAL' A; 'BEGIN' 'INTEGER''PROCEDURE' P(B, C); 'INTEGER' B, C; P := B + C; R := P(A + 1, A) 'END' R; 'REAL' X; 'BEGIN' 'REAL' Y; Y := 4; X := R(R(Y + 1)) 'END'; OUTREAL(99, X) 'END'