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