let to_stream t = Stream.of_list (to_alist t)