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