'BEGIN'
    'COMMENT' 'LIBRARY' 1;
    'REAL'
        X,
        Y;
    'REAL' 'PROCEDURE' P(Z);
        'VALUE'
            Z;
        'REAL'
            Z;
        'BEGIN'
        X := Z + Y
        'END';
    'REAL' 'PROCEDURE' Q(Z);
        'VALUE'
            Z;
        'REAL'
            Z;
        'IF' 'FALSE' 'THEN'
            Q := Z + X + Y;
    X := Y := 1.0;
    OUTREAL(99, P(10.0) + Q(100.0))
'END'