concrete QuestionNno of Question = CatNno ** QuestionScand with
  (ResScand = ResNno) ;