sig
  val in_of_stream : stream:char Stream.t -> unit -> Fragments.io_in
  val in_of_channel :
    in_channel:Pervasives.in_channel -> unit -> Fragments.io_in
  val out_of_formatter :
    formatter:Format.formatter -> ?indent:bool -> unit -> Fragments.io_out
  val out_of_channel :
    ?condensed:bool ->
    out_channel:Pervasives.out_channel ->
    ?indent:bool -> unit -> Fragments.io_out
end