concrete NounSwe of Noun = CatSwe ** NounScand with
  (ResScand = ResSwe) ;