concrete TensedSwe of Tensed = CatSwe ** TensedScand with
  (DiffScand = DiffSwe) ;