$c+
module test5_1 { anotherlooptest with and/or
 test of and and or operators}
private
integer i;

begin
i := 1;
do 
	i = 1 | i = 2 -> write i; i := 3;
 [] i > 2 & i < 5 -> write i ; i := i+1;
 [] i >= 5 & i < 10 -> write i*i; i := i + 3;
od;

end. { outputs 1 3 4 25 64}
