Tar.READER
type in_channel
type 'a t
val really_read : in_channel -> Cstruct.t -> unit t
val skip : in_channel -> int -> unit t