type t

val create : ?init:bool -> int -> t
val length : t -> int
val set : t -> int -> bool -> unit
val get : t -> int -> bool

val unsafe_set : t -> int -> bool -> unit
val unsafe_get : t -> int -> bool