static LS ai_categoriesForWord(S word) {
  Map<S, Set<S>> wordCategories = ai_wordCategoriesWithElements();
  new L<S> cats;
  for (S cat : keys(wordCategories))
    if (contains(wordCategories.get(cat), word))
      cats.add(cat);
  ret cats;
}