!7

concept Translation {
  S british, american;
}

compact module BritishToAmerican > DynCRUD<Translation> {
  *() { super(Translation); }
  
  // API
  
  SS getTranslationMap() {
    ret main.<S> mapFromKeyAndValueField(list(Translation), 'british, 'american);
  }
  
  S translate(S s) {
    ret replaceCodeTokensUsingMap(getTranslationMap(), s);
  }
}