concrete UntensedSwe of Untensed = CatSwe ** UntensedScand with
  (DiffScand = DiffSwe) ;