Prolog. Убрать повтор фактов.

[Killer_Pooh]

Здравствуйте, помогите разобраться пожалуйста. Есть факты:

любит(лена,теннис).
любит(вася,футбол).
любит(ваcя,теннис).
любит(гриша,пиво).
любит(петя,кино).
любит(коля,книги).
любит(вова,лена).

Нужно вывести все существующие имена. Условие пишу так:

любит(A,B), write(A), nl, fail.

Но имя Вася выводится 2 раза.. Как можно ввести проверки, подскажите пожалуйста. Заранее спасибо!