Public Sub Main()
Dim siCount As Short = 1024

While siCount > 0
  Print siCount;;
  siCount /= 2
Wend

End