将以下内容翻译成prolog程序并保存为food.pl
咨询food.pl查询，看看约翰是否喜欢鸡肉，还有什么苏吃。
约翰喜欢所有的食物。
苹果是食物。 牡蛎是食物。
任何人吃和仍然活着是食物。
汤姆吃鸡肉，还活着。
苏吃汤姆吃的一切。

likes(john,X):- food(X).
food(apple).
food(oyster).
food(X):- eats(A,X), still_alive(A).
eats(tom,chicken).
still_alive(tom).
eats(sue,X):- eats(tom,X).
?-likes(john,chicken).
yes
?-eats(sue,X).
X=chicken
yes