bitString n bs@(_:_) = if (n >= 8) then Nothing else Just $ BitString n bs
bitString n bs@(_:_) = if (n >= 8) then Nothing else Just $ BitString n bs
bitString n bs@(_:_) = if (n >= 8) then Nothing else Just $ BitString n bs