let get bitarray index =
  if index < 0 || index >= bitarray.length
  then raise (Invalid_argument "Bitarray.get");
  let array = bitarray.array in
  let virtual_index = index / size in
  let shift_index = index mod size in
  array.{virtual_index} land values.(shift_index) != 0