:- object(joeChessPlayer,
    extends(joePerson)).


    :- public(category/1).

    category('National Master').


:- end_object.