concrete QuestionTur of Question = CatTur ** open ResTur, Prelude in {

lin
  AdvIAdv _ _ = variants {} ;
  AdvIP _ _ = variants {} ;
  PrepIP _ _ = variants {} ;
  CompIP _ = variants {} ;
  CompIAdv _ = variants {} ;
  IdetQuant _ _ = variants {} ;
  IdetCN _ _ = variants {} ;
  IdetIP _ = variants {} ;

  QuestIComp _ _ = variants {} ;
  QuestIAdv _ _ = variants {} ;
  QuestSlash _ _ = variants {} ;
  QuestVP _ _ = variants {} ;
  QuestCl _ = variants {} ;

}