concrete QuestionIta of Question = CatIta ** QuestionRomance with
  (ResRomance = ResIta) ;