RosettaCodeData/Task/Loops-While/Sather/loops-while.sa

class MAIN is
  main is
    i ::= 1024;
    loop while!(i > 0);
      #OUT + i + "\n";
      i := i / 2;
    end;
  end;
end;