sig
  type 'a conduit = {
    cd_out_channel : 'a;
    cd_print : 'b. 'a -> ('b, 'a, unit) Pervasives.format -> 'b;
    cd_flush : 'a -> unit;
  }
  val stdoutcd : Pervasives.out_channel Conduit.conduit
  val stderrcd : Pervasives.out_channel Conduit.conduit
  val conduit_of_channel :
    Pervasives.out_channel -> Pervasives.out_channel Conduit.conduit
  val conduit_of_buffer : Buffer.t -> Buffer.t Conduit.conduit
  val scribe_string : 'a Conduit.conduit -> 'a -> string -> unit
end