i <- 1024
while (i > 0)
  prn i
  i <- (int i/2)