concrete EconomyRon of Economy = MidLevelOntologyRon ** open DictLangRon, LexiconRon in {

lin
  Apple = UseN apple_N ;

}