likes(mary, john).
likes(john, mary).

X :- likes(mary, X).