sig
  type t = private int
  val empty : CCBitField.S.t
  type field
  val get : CCBitField.S.field -> CCBitField.S.t -> bool
  val set : CCBitField.S.field -> bool -> CCBitField.S.t -> CCBitField.S.t
  val mk_field : unit -> CCBitField.S.field
  val freeze : unit -> unit
  val total_width : unit -> int
end