'BEGIN'
    'COMMENT' 'LIBRARY' 1;
    'INTEGER'
        I;
    'PROCEDURE' P(A, B);
        'INTEGER'
            A;
        'INTEGER'
            B;
        I := A + B;
    P(3, 4);
    OUTREAL(99, I);
'END'