gives(tom, book, SOMEONE) :-
    person(SOMEONE),
    likes(tom, SOMEONE).

##</code><code>##

  likes( mary, tom ).
  likes( tom, susan ).