RosettaCodeData/Task/Loops-While/PL-I/loops-while.pli

declare i fixed binary initial (1024);

do while (i>0);
   put skip list (i);
   i = i / 2;
end;