let
to_stream t =
Stream
.of_list (to_list t)