begin

    comment library 1;

    integer
        i;
    procedure p;
        begin
        integer
            j;
        procedure q;
            if i > 10 then
                go to l;

        j := i := i + 1;
        q;
        outreal(1, j);
        p;
        l :;
        outreal(1, j);
        end;

    i := 1;
    p;
end