@c+
module test8 -- anotherlooptest
-- 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
