'BEGIN'
    'COMMENT' 'LIBRARY' 1;
    'INTEGER'
        I;
    'PROCEDURE' P;
        'BEGIN'
        'INTEGER'
            J;
        'PROCEDURE' Q;
            'IF' I > 10 'THEN'
                'GOTO' L;
        J := I := I + 1;
        Q;
        OUTREAL(99, J);
        P;
        L :;
        OUTREAL(99, J);
        'END';
    I := 1;
    P;
'END'