sig
  val out_of_channel :
    out_channel:Pervasives.out_channel -> unit -> Fragments.io_out
  val out_of_buffer : buffer:Buffer.t -> unit -> Fragments.io_out
  val in_of_lexbuf : lexbuf:Lexing.lexbuf -> unit -> Fragments.io_in
end