modified:   nextLexicalBitStirng.hs