concrete EconomyFre of Economy = MidLevelOntologyFre ** open DictLangFre, LexiconFre in {

lin
  Apple = UseN apple_N ;

}