bitStringLength :: BitString -> Int
bitStringLength bs = 1 + length (bitStringBytes bs)
bitStringLength :: BitString -> Int
bitStringLength bs = 1 + length (bitStringBytes bs)
bitStringLength bs = 1 + length (bitStringBytes bs)