let
to_stream t =
Stream
.of_list (to_alist t)