let get v n =
  if n < 0 or n >= v.length then invalid_arg "Bitv.set";
  let (i,j) = pos n in 
  ((Array.unsafe_get v.bits i) land (Array.unsafe_get bit_j j)) > 0