sig
  type t = Bitarray.t
  val t_of_sexp : Sexplib.Sexp.t -> t
  val sexp_of_t : t -> Sexplib.Sexp.t
  val create : int -> t
  val get : t -> int -> bool
  val set : t -> int -> bool -> unit
  val clear : t -> unit
  val fold : t -> init:'a -> f:('a -> bool -> 'a) -> 'a
  val iter : t -> f:(bool -> unit) -> unit
end