Module M1
    Public Sub Main
        Dim x = 1024
        Do While x > 0
            Console.WriteLine(x)
            x \= 2
        Loop
    End Sub
End Module