Ex1

passaro('Marcelo').
peixe('Silvio').
minhoca('Ana').
pessoa('Eu').

gosta(X,Y) :- passaro(X),minhoca(Y).
gosta(X,Y) :- gato(X),peixe(Y).
gosta(X,Y) :- gato(X),passaro(Y).
gosta(X,Y) :- amigo(X,Y).

amigo('Eu','Chuck Norris').

gato('Chuck Norris').
come('Chuck Norris',Y) :- gosta('Chuck Norris',Y), not(pessoa(Y)).

%come('Chuck Norris',X)
%gosta(X,Y)