sig
  val with_file_out_channel :
    string -> (Pervasives.out_channel -> unit) -> unit
  val with_buffer : int -> (Buffer.t -> unit) -> string
  val ( |>> ) : 'a -> ('a -> 'b) -> 'b
end