'BEGIN' 'COMMENT' 'LIBRARY' 1; 'REAL' X; X := &; OUTREAL(99, X); 'END'