svoid ai_gatherEnglishWordCategories() {
  for (S cat : mL("All english word categories"))
    ai_storeFact(quote(angleBracketCategoryToText(cat)) + " is a word type");
}