RosettaCodeData/Task/Loops-While/Pop11/loops-while.pop11

lvars i = 1024;
while i > 0 do
    printf(i, '%p\n');
    i div 2 -> i;
endwhile;