concrete PhraseSwe of Phrase = CatSwe ** PhraseScand with
  (ResScand = ResSwe) ;