concrete QuestionHrv of Question = CatHrv ** 
  open ResHrv, Prelude in {

lin
    QuestCl cl = cl ; ----

}