sig
  type t = Pervasives.out_channel
  val stdout : Out_channel.t
  val stderr : Out_channel.t
  val create :
    ?binary:bool -> ?append:bool -> ?perm:int -> string -> Out_channel.t
  val close : Out_channel.t -> unit
  val close_noerr : Out_channel.t -> unit
  val set_binary_mode : Out_channel.t -> bool -> unit
  val flush : Out_channel.t -> unit
  val output : Out_channel.t -> buf:string -> pos:int -> len:int -> unit
  val output_string : Out_channel.t -> string -> unit
  val output_char : Out_channel.t -> char -> unit
  val output_byte : Out_channel.t -> int -> unit
  val output_binary_int : Out_channel.t -> int -> unit
  val output_value : Out_channel.t -> '-> unit
  val seek : Out_channel.t -> int -> unit
  val pos : Out_channel.t -> int
  val length : Out_channel.t -> int
end