Dim x = 1024
Do
    Console.WriteLine(x)
    x = x \ 2
Loop While x > 0