Вывести на экран элементы списка по 3 в строке, отделяя элементы запятыми (Turbo Prolog)

Формулировка задачи:

Вывести на экран элементы списка по 3 в строке отделяя элементы запятыми , после последнего элементы поставить точку. Помогите написать данную программку пожалуйста.

Решение задачи: «Вывести на экран элементы списка по 3 в строке, отделяя элементы запятыми (Turbo Prolog)»

textual
                            Листинг программы 
                        

                            domains
int=integer
intl=int*
 
predicates
task(intl)
 
clauses
task([X,Y,Z])   :- write(X),write(","),write(Y),write(","),write(Z),write("."),nl.
task([X,Y])     :- write(X),write(","),write(Y),write("."),nl.
task([X])       :- write(X),write("."),nl.
task([]).
task([X,Y,Z|T]) :- write(X),write(","),write(Y),write(","),write(Z),write(","),nl,task(T).
                        