query(p31,(q(_684212)  ','  q(b)),[q(a),q(b),r],[],[q(b),r]).
%-----------------------------------------------------------

:- table q / 1.
:- table r / 0.

q(A) :- p(A), eq(A,b).
eq(A,A).
p(a).
p(_A) :- r.
r :- tnot(r).