'BEGIN'
    'COMMENT' 'LIBRARY' 1;
    'REAL'
        X;
    'INTEGER'
        I;
    'PROCEDURE' NOTFUNCTION(Y);
        'VALUE'
            Y;
        'REAL'
            Y;
        'BEGIN'
        I := I + 1;
        X := Y
        'END';
    X := 1.0;
    I := 0;
    X := 3 * NOTFUNCTION(4.0);
    OUTREAL(99, X + NOTFUNCTION(X) + I)
'END'