RosettaCodeData/Task/Loops-While/GAP/loops-while.gap

n := 1024;
while n > 0 do
    Print(n, "\n");
    n := QuoInt(n, 2);
od;