!7

p-subst {
  veryBigConsole();
  clearConsole();
  sleepingBot("English To Concepts Translator.");
}

synchronized answer {
  aiConceptsMap_clearCache();
  try answer or2(englishToConceptLanguage(s), s);
}

sS englishToConceptLanguage_simple(S s) {
  Map<S, AIConcept> concepts = aiConceptsMap_cached();
  for (AIConcept c : values(concepts))
    if (match(c.name, s))
      ret c.globalID;
  null;
}

sS englishToConceptLanguage(S s) {
  try answer englishToConceptLanguage_simple(s);
  Map<S, AIConcept> concepts = aiConceptsMap_cached();
  new Matches m;
  for (AIConcept c : values(concepts)) {
    L<S> tok = javaTokC(c.name);
    if (tok.contains("X")) {
      S pat = formatXYZ(c.name, "*");
      print("Pattern: " + pat);
      if (flexMatchIC(pat, s, m))
        ret c.id + " " + $1;
    }
  }
  null;
}