-- turn on the tokens and the semantic stack on the command line of simple
package test2 is body
    i : integer;
    j : integer;
    procedure testit is
    begin
        i := i+2;
        j := i;
        writeln("test2: easy proc - only one scope level i = ",i," j = ",j);
    end;
begin
    i := 0;
    writeln("i = ", i, " (should be 0)");
    testit;
    writeln("i = ", i, " (should be 2)");
    writeln("test2: All done!");
end;