'BEGIN' 'COMMENT' LIBRARY 1; 'INTEGER' A; 'INTEGER''PROCEDURE' F(X, Y); 'VALUE' X, Y; 'INTEGER' X, Y; A := F := X + 1; 'INTEGER''PROCEDURE' G(X); 'INTEGER' X; X := G := A + 2; A := 0; OUTREAL(99, A + F(A, G(A)) / G(A)) 'END'