type t

val create : unit -> t

val write_bit : t -> int -> unit
val write_bits : t -> int -> int -> unit

val flush : t -> unit
val to_bytes : t -> bytes

val write_literal : t -> int -> unit
val write_match : t -> int -> int -> unit