klient(petko,petkov,[1111,2222],[povik(3333,datum(1,10,2008),100),povik(6666,datum(18,8,2008),100)]).
klient(ifche,petkov,[3333],[povik(1111,datum(1,10,2008),135),povik(6666,datum(18,8,2008),300)]).
klient(rambo,stalone,[6666,777],[povik(3333,datum(26,12,1988),10)]).
klient(vancho,vancho,[0000],[povik(3333,datum(1,10,2008),135),povik(6666,datum(18,8,2008),300)]).

clen(X,[X|O]).
clen(X,[Y|O]):- clen(X,O).

site_povici(LP):- findall((Br,Vreme),(klient(_,_,_,L),clen(povik(Br,_,Vreme),L)),LP).

soberi_segde_dojdovi(X,Vkupno):- site_povici(LP), clen((Y,V1),LP),X=Y, Vkupno is Vkupno+V1.