concrete NamesSwe of Noun = CatSwe ** NamesScand with
  (ResScand = ResSwe) ;