concrete QuestionSwe of Question = CatSwe ** QuestionScand with
  (ResScand = ResSwe) ;