如何在Prolog中打印没有'[]‘和'，’的列表中的内容

print_list([]). % 空列表，不打印任何内容

print_list([X]) :- % 列表中只有一个元素
    write(X).

print_list([X|Xs]) :- % 列表中有多个元素
    write(X),
    print_rest(Xs).

print_rest([]). % 列表结束，不打印任何内容

print_rest([X]) :- % 列表中只剩下一个元素
    write(X).

print_rest([X|Xs]) :- % 列表中还有多个元素
    write(', '),
    write(X),
    print_rest(Xs).

?- print_list([1, 2, 3, 4]).
1, 2, 3, 4
true.

?- print_list([a, b, c]).
a, b, c
true.

?- print_list([]).
true.