'BEGIN'
    'COMMENT' 'LIBRARY' 1;
    'REAL'
        Y;
    'PROCEDURE' P(X, X);
        'VALUE'
            X;
        'REAL'
            X;
        X := X^2 + 8.6;
    P(Y, 2.0);
    OUTREAL(99, Y)
'END'