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