RosettaCodeData/Task/Loops-Do-while/Sather/loops-do-while.sa

class MAIN is
  main is
    val ::= 0;
    loop
      val := val + 1;
      #OUT + val + "\n";
      while!(val % 6 /= 0)
    end;
  end;
end;