?- drinks(grep,Drink).
Drink=guiness
yes

?- drinks(Who,scotch).
Who=lemming
Who=ovid
yes