--# -path=.:../romance:../abstract:../common:../prelude

concrete SymbolPor of Symbol = CatPor ** SymbolRomance with
  (ResRomance = ResPor) ;