'a IO.output ->
object
  method close_out : unit -> unit
  method flush : unit -> unit
  method output : ExtBytes.Bytes.t -> int -> int -> int
end