RosettaCodeData/Task/Loops-While/Objeck/loops-while.objeck

i := 1024;
while(i > 0) {
   i->PrintLine();
   i /= 2;
};