i <- 1024L
while(i > 0)
{
   print(i)
   i <- i %/% 2
}