%include "GDMR_H:LIGHTS.INC"

%begin
   %integer i
      %cycle
         prompt("!  ");  read(i)
         lights or A(i)
         prompt("&\ ");  read(i)
         lights and A(\ i)
      %repeat
%end %of %program