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