procedure main()
   local i
   i := 1024
   while write(0 < (i := i / 2))
end