seznam([1,2,'ahoj',[]]).

vypis([]).
vypis([S|P]) :- writeln(S),vypis(P).

spoj([],X,X).
%spoj(X,[],X).
spoj([H|T],Y,[H|R]) :- spoj(T,Y,R).

obrat([],[]).
obrat([H|T], R):- obrat(T,OT), spoj(OT, [H], R).

cikcak([],[],[]).
cikcak([A],[A],[]).
cikcak([A,B|R],[A|L],[B|P]) :- cikcak(R,L,P).