.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 {
         switch tag {
            case .organizationName:
               listWords += "Organization: \(new[range])\n"
            case .personalName:
               listWords += "Person: \(new[range])\n"
            case .placeName:
               listWords += "Location: \(new[range])\n"
            default:
               break
         }
      }
   }
   message = listWords
}