!7

concept Translation {
  S english, conceptLanguage;
}

concept FAQ {
  S question, answer;
}

concept UnansweredQuestion {
  S question;
  long lastSeen;
}

static Concepts translations, faqs;

p {
  db();
  translations = new Concepts(#1007165).load();
  faqs = new Concepts(#1007182).load();
  bot();
}

static S englishToConceptLanguage(S s) {
  for (Translation t : list(translations, Translation))
    if (match(t.english, s))
      ret t.conceptLanguage;
  ret s;
}

answer {
  s = englishToConceptLanguage(s);
  for (FAQ faq : list(faqs, FAQ))
    if (match(faq.question, s))
      ret faq.answer;
  cset(uniq(UnansweredQuestion, question := s), lastSeen := now());
}