let iter f bitarray =
  iteri (fun _ x -> f x) bitarray