!7

p {
  Web web = lastChatLinesAsWeb(5);
  for (WebNode node : web_nodesStartingWith(web, "Text ")) pcall {
    S text = web_unquoteLastToken(node);
    L<S> categories = textToCategories(text);
    for (S c : categories)
      web_addLabel(web_findOrMakeForwardRelated(node, "is a"), c);
  }
  showWeb(web, 1000, 700);
}

static L<S> textToCategories(S text) {
  if (matchStart("hello", text))
    ret ll("greeting");
  if (matchStart("yes", text) || matchStart("no", text))
    ret ll("yes/no answer");
  if (ai_isQuestion_1(text))
    ret ll("question");
  ret ll();
}