sadr([],[]).
sadr([G|R],[G |X]):-atomic(G),sadr(R,X).
sadr([G|R],L):-sadr(G,l1),sadr(R,L2),spoj(L1,L2,L).

spoj([],L,L).
spoj([G|R],L,[G|X]):-spoj(R,L).

/* Poziva se sa ?- sadr(Lista,Ispeglana_lista). */