如何在Prolog中输出用户输入知识库的答案

% 定义规则
likes(john, pizza).
likes(john, sushi).
likes(mary, sushi).
likes(mary, chocolate).

% 用户输入查询
ask_user(Query) :-
    write('请输入查询：'),
    read(Query).

% 查询知识库答案
query_answer(Query) :-
    likes(Person, Query),
    write(Person), write(' 喜欢 '), write(Query), nl,
    fail. % 继续查询其他答案
query_answer(_).

% 主程序
main :-
    ask_user(Query),
    query_answer(Query),
    main. % 继续查询

% 运行主程序
:- initialization(main).

请输入查询：pizza.
john 喜欢 pizza
请输入查询：sushi.
john 喜欢 sushi
mary 喜欢 sushi
请输入查询：chocolate.
mary 喜欢 chocolate
请输入查询：quit.