'BEGIN' 'COMMENT' 'LIBRARY' 1; 'COMMENT' USE OF A PROCEDURE; 'REAL' A, B, ; 'PROCEDURE' EXAMPLE(X, Y)RESULT : (R); 'VALUE' X, Y; 'REAL' X, Y, R; 'BEGIN' X := X + Y; R := X^2 + Y^2 'END'; A := 1; B := 2; EXAMPLE(A, A + B, R); OUTREAL(99,R) 'END'