let length (bitarray:t) =
  bitarray.length