type in_channel
type 'a t = 'a Async.t
val really_read : in_channel -> Cstruct.t -> unit t
val skip : in_channel -> int -> unit t