concrete RelativeSwe of Relative = CatSwe ** RelativeScand with
  (DiffScand = DiffSwe) ;