/* Ubaci elemenat na pocetak liste */
/* Poziv sa: dodaj_poc(El,Lista,Rez). */

dodaj_poc(X,L,[X|L]).

/* Ubaci elemenat na kraj liste */
/* Poziv sa: dodaj_kraj(El,Lista,Rez). */

dodaj_kraj(X,[],[X]):-!.
dodaj_kraj(X,[G|R],[G|R1]):-dodaj_kraj(X,R,R1).