sum(L,S).
sum([],0).
sum([1],1).
sum([2,3],5).
sum([4,5,6],15).

sum([X],X).
sum([Y,Z],S) :- add(Y,Z,S).

