concrete QuestionCze of Question = CatCze ** 
  open ResCze, Prelude in {

lin
    QuestCl cl = cl ; ----

}