Thread.Reader
type t
val close : t -> unit Deferred.t
val read : t -> bytes -> [ `Eof of int | `Ok ] Deferred.t