concrete QuestionSlo of Question = CatSlo ** 
  open ResSlo, Prelude in {

lin
    QuestCl cl = cl ; ----

}