abstract Query = {

  flags startcat=Question ;

  cat 
    Answer ; Question ; Object ;

  fun 
    Even   : Object -> Question ;
    Odd    : Object -> Question ;
    Prime  : Object -> Question ;
    Number : Int -> Object ;

    Yes : Answer ;
    No  : Answer ;
}