Отметьте что-то вроде этого:
transform([A], A):-
A=..[_].
transform([A,B], (A,B)):-
B=..[_].
transform([A,B,C|Tail], L):-
L=..[',',A,T],
transform([B,C|Tail], T).
Первое предложение необходимо, только если вы хотите преобразовать ([Item], Item).
?- transform([a,b], X).
X = (a, b)
?- transform([a,b,c,d,e,f], X).
X = (a, b, c, d, e, f)
?- transform(L, (a,b,c,d,e,f,g))
L = [a, b, c, d, e, f, g]
Обратите внимание, что термин выУ здания действительно есть функтор, это ',' / 2, и он показан с круглыми скобками, которые вы видите.