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

obrat([],[]).
obrat([X|Y],Z):-obrat(Y,W),dodati(W,[X],Z).

/* Poziva se sa: obrat(Lista,ObrnutaLista). */