sig
  val init : unit -> unit
  val read_byte : unit -> int
  val try_read_byte : unit -> int option
  val write_byte : int -> unit
  val write : string -> unit
  val writef : ('a, Format.formatter, unit) Pervasives.format -> 'a
end