Prolog - Sumar Listas

Tengo un programa en prolog que suma los elementos de dos listas, el problema es que al desplegar la respuesta me salen los resultados previos al resultado final.
Que puedo hacer para que solo me aparesca el resultado final???
Espero que alguien me pueda ayudar...de antemano gracias!!!

domains
num=integer
lnum=integer*
predicates
sumalista(num,lnum).
clauses
sumalista(0,[ ]).
sumalista(S,[Cab|Cola):- sumalista(N,Cola), S=Cab+N, write("La suma es:",S).

Goal: sumalista(Y,[2,4,6]).

Me despliega La suma es:6 Lasuma es:10, La suma es:12 Y=12

Nota: Quiero que me despliegue solamente

La suma es: Y=12

Te escribe los resultados parciales porque pusiste el write dentro de la recursividad.
Debería estar en el final.
Chau, espero que te sirva.

domains
lnum=integer*
num=integer
predicates
suma_lista(num,lnum)

clauses
suma_lista(0,[]).
suma_lista(S,[H|T]):-suma_lista(N,T),S=H+N.

Hallo!!..q tal.. bueno noc.. si esto te sirva.. ;)

suma([],0).
suma([X|Xs],C):-suma(Xs,C1),C is C1+X.
sumadelista(X):-suma(X,C),write('La suma es : ';C).