%%Komentar
list(X):-X=[].
list(X):-X=[_H|T],list(T).

%%gerade Liste
gradel(X):-X=[].
gradel(X):-X=[_H|T],T=[_G|F],gradel(F).

%%ein Element
einelem(X):-X=[_H|T],T==[].

my_member(X,[X|_]).
my_member(X,[_|R]):-my_member(X,R).

laenge([],0).
laenge([H|R],X):-laenge(R,Y),X is Y+1.

verbinde([],X,X).
verbinde([H|L],R,[H|X]):-verbinde(L,R,X).


schneide([H|L],H,X):-schneide(L,_,X).
schneide([H|L],R,[H|X]):-schneide(L,R,X).
schneide(X,_,X).