Io.Stream
type 'a t = 'a Lwt_stream.t * (unit -> unit)
val map : 'a t -> ('a -> 'a t) -> 'b t
val iter : 'a t -> ('a -> 'a t) -> 'a t
val close : 'a t -> unit