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