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