/* Obrisi prvi element liste */
/* Poziva se sa: brisi_prvi(Lista,Res). */

brisi_prvi([],_):-!,fail.
brisi_prvi([_|R],R).

/* Obrisi prvi element liste */
/* Poziva se sa: brisi_prvi(Lista,Res). */

brisi_zadnji([],_):-!,fail.
brisi_zadnji([_],[]):-!.
brisi_zadnji([G|R],[G|R1]):-brisi_zadnji(R,R1).