1 2 3 4 5 6 7 8 9
person(joey). married(X); -married(X) :- person(X). male(X); female(X) :- person(X). bachelor(X) :- male(X), not married(X). #show bachelor/1.