concrete NounPor of Noun = CatPor ** NounRomance with
  (ResRomance = ResPor) ** open Prelude, PhonoPor in {

} ;