sig
  type 'a conduit = {
    cd_out_channel : 'a;
    cd_print : 'b. '-> ('b, 'a, unit) Pervasives.format -> 'b;
    cd_flush : '-> 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 : 'Conduit.conduit -> '-> string -> unit
end