sig
  val out_of_channel :
    out_channel:Pervasives.out_channel ->
    ?compress:bool -> unit -> Fragments.io_out
  val in_of_channel :
    in_channel:Pervasives.in_channel ->
    ?compress:bool -> unit -> Fragments.io_in
  val in_of_string :
    str:string ->
    ?offset:int -> ?length:int -> ?compress:bool -> unit -> Fragments.io_in
  val out_to_string :
    ?size:int ->
    ?compress:bool -> unit -> Fragments.io_out * (unit -> string)
end