concrete QuestionFre of Question = CatFre ** QuestionRomance with
  (DiffRomance = DiffFre) ;