let to_stream t = Stream.of_list (to_list t)