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