sig
  type t
  val create : unit -> Bitmatch.Buffer.t
  val contents : Bitmatch.Buffer.t -> Bitmatch.bitstring
  val add_bits : Bitmatch.Buffer.t -> string -> int -> unit
  val add_bit : Bitmatch.Buffer.t -> bool -> unit
  val add_byte : Bitmatch.Buffer.t -> int -> unit
end