let
length (bitarray:t) =
bitarray.length