/*2 Elemente zu einer Liste vereinen*/
cons(X,Y,L) :- L=[X|Y].
/*cons(X,Y,[X|Y]).*/
/*Listen aneinanderhängen*/
append([],Y,Y).
append([A|B],Y,[A|W]) :- append(B,Y,W).
/*Liste spiegeln*/
reverse([],[]).
reverse([H|T],L) :- reverse(T,ZW),append(ZW,[H],L).