gosta(maria, chocolate).
gosta(maria, vinho).
gosta(pedro, vinho).
gosta(pedro, maria).
gosta(pedro,X) :- gosta(X,vinho), gosta(X,chocolate).
