.onChange(of: textInput) { old, new in
   let tagger = NLTagger(tagSchemes: [.lemma])
   tagger.string = new

   var listWords = ""
   let tags = tagger.tags(in: new.startIndex ..< new.endIndex, unit: .word, scheme: .lemma, options: [.omitPunctuation, .omitWhitespace])
   for (tag, _) in tags {
      if let tag = tag {
         listWords += "\(tag.rawValue) "
      }
   }
   message = listWords
}