RosettaCodeData/Task/Loops-While/ObjectIcon/loops-while-2.oi

import io

procedure main()
  local coexpression
  coexpression := create generator(1024)
  while write(@coexpression)
end

procedure generator(n)
  while 0 < n do { suspend n; n /:= 2 }
end