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