let stream = Stream.of_list ([] : unit list)