concrete QuestionNor of Question = CatNor ** QuestionScand with
  (ResScand = ResNor) ;