:- object(q1, extends(square)). :- end_object.