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