-- 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;