RosettaCodeData/Task/Loops-Continue/Sather/loops-continue.sa

class MAIN is
  main is
    i:INT;
    loop i := 1.upto!(10);
      #OUT + i;
      if i%5 = 0 then
        #OUT + "\n";
      else
        #OUT + ", ";
      end;
    end;
  end;
end;