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