poslednji([X],X).
poslednji([_|R],X):-poslednji(R,X).

sledi(X,Y,[X,Y|_]).
sledi(X,Y,[_S|R]):-sledi(X,Y,R).

dodati([],L,L).
dodati([G|R],L,[G|R1]):-dodati(R,L,R1).

/* Poziva se sa:   
		-nalazenje poslednjeg clana u listi: 
			poslednji(ZadnjiClan,Lista).  
		-spajanje 2 liste:   
			dodati(Prva,Druga,Rezultujuca).
		-provjera da li elementi slijede jedan za drugim:
			sledi(Elem1,Elem2,Lista).          */