!7

concept Entry {
  S word;
  S languages; // comma-separated
}

cmodule WordToLanguageCRUD > DynCRUD<Entry> {
  start {
    dbIndexing(Entry, 'word);
  }
  
  // API
  
  void addEntry(S word, S language) {
    Entry e = uniq_sync Entry(+word);
    cset(e, languages := addToCommaCISet(e.languages, language));
  }
  
  S languageForText(S text) {
    ret getString languages(conceptWhereIC Entry(word := text));
  }
}

Began life as a copy of #1021109