RosettaCodeData/Task/Loops-While/R/loops-while.r

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