concrete IdiomNor of Idiom = CatNor ** 
  open MorphoNor, ParadigmsNor, Prelude in {

  flags optimize=all_subs ;

}