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