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

   var listWords = ""
   let tags = tagger.tags(in: new.startIndex ..< new.endIndex, unit: .word, scheme: .nameType, options: [.omitPunctuation, .omitWhitespace, .joinNames])
   for (tag, range) in tags {
      if let tag = tag, tag == .organizationName {
         let (hypotheses, _) = tagger.tagHypotheses(at: range.lowerBound, unit: .word, scheme: .nameType, maximumCount: 3)
         for (_, prediction) in hypotheses {
            listWords += "\(new[range]): \(Int(prediction * 100.0))%\n"
         }
      }
   }
   message = listWords
}