'BEGIN' 'COMMENT' 'LIBRARY' 1; 'REAL' 'ARRAY' JJ(/1 : 8/); 'PROCEDURE' P(X); 'VALUE' X; 'INTEGER' X; ; 'PROCEDURE' DEVIATION; 'BEGIN' 'REAL' X, Y; P(JJ) 'END'; DEVIATION; 'END'