Misc.Bitmap
type t
val make : int -> t
val set : t -> int -> unit
val clear : t -> int -> unit
val get : t -> int -> bool
val iter : (int -> unit) -> t -> unit