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