'BEGIN'
    'COMMENT' LIBRARY 1;
    'INTEGER''PROCEDURE' P(B);
        'VALUE'
            B;
        'BOOLEAN'
            B;
        P := ('IF' B 'THEN' 1 'ELSE' 3.3) 'DIV' 6;
    OUTREAL(99, P('TRUE'));
    OUTREAL(99, P('FALSE'))
'END'