import io

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

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