suman([],0).
sumap([],0).

suman([G|R],S):-sumap(R,S1),S is S1-G.
sumap([G|R],S):-suman(R,S1),S is S1+G.

/* poziva se sa ?-suman(Lista,Rezultat). 
  ili ?-sumap(Lista,Rezultat). */