begin "tstfor"
   itemvar x;
   integer i; item a;
    require 100 new!items;
   simple procedure test;
   begin
      foreach x | x in {a⎇ do
         done
   end;

   simple procedure test1;
   begin
      foreach x | x in {a⎇ do
           return
   end;

   simple procedure test2;
      foreach x | x in {a⎇ do
           
      ;
  
   print("0-done, 1-return, 2-normal",'15&'12,"test? ");
   i ← cvd(inchwl);
   while true do
     case i of
     begin
        [0] test;
        [1] test1;
        [2] test2
     end;
end