abstract User = {
  cat
    Query ;
  fun
    QQuit : Query ;
} ;