let to_stream t =
  let l = ref (cons_iter t E) in
  Stream.from (stream_next l)