let to_backwards_stream t =
  let l = ref (rev_cons_iter t E) in
  Stream.from (stream_backwards_next l)