'BEGIN' 'COMMENT' 'LIBRARY' 1; 'REAL' A, X; X := 0.8; A := ('IF' X >= 0 'AND' X <= 1 'THEN' X * X - 3 * X + 4 'ELSE' 0); OUTREAL(A); 'END'