/* Einfügen vor einer Liste: */
ins(E,L,E,[E|L]).

/* Anhängen ans Listenende*/
app(E],[E]).
app(E,[A|R],[A|S]):-app(E,R,S).

/* Suchen in Liste: */
elem(E,[E|_]).
elem(E,[_|L]):-elem(E,L).

/* Ersetzen */
chg(A,N,[A|R],[N|R]).
chg(A,N,[B|R],[B|S]):-chg(A,N,R,S).
chg(A,_,_,_).

/* Löschen */
del(_,[],[]).
del(E,[E|R],R).
del(E,[A|R],[A|S]):-del(E,R,S).

/* Sortieren */
srt([],[]).
srt([A|RA],[B|RB]):-srt(RA,[B|R]),B=<A,srt([A|R],RB).
srt([A|RA],[A|RB]):-srt(RA,RB).