concrete NounPor of Noun = CatPor ** NounRomance with
  (ResRomance = ResPor) ;