query(p14,p,[p],[],[p]).
%-----------------------------------------------------------

:- table p / 0.

p :- tnot(p).