sig
  type t
  val open_out :
    ?level:int ->
    ?strategy:Zlib.z_strategy ->
    ?header:Zlib.z_header ->
    (string -> int -> int -> unit) -> Zlib__Out_deflater.t
  val out_substring : Zlib__Out_deflater.t -> string -> int -> int -> int
  val output_substring : Zlib__Out_deflater.t -> string -> int -> int -> unit
  val output_string : Zlib__Out_deflater.t -> string -> unit
  val flush : Zlib__Out_deflater.t -> unit
  val close_out : Zlib__Out_deflater.t -> unit
end