bitString :: Word8 -> [Word8] -> Maybe BitString
bitString n [] = if (n /= 0) then Nothing else Just bitStringEmpty
bitString :: Word8 -> [Word8] -> Maybe BitString
bitString n [] = if (n /= 0) then Nothing else Just bitStringEmpty
bitString n [] = if (n /= 0) then Nothing else Just bitStringEmpty