member(X, [X|_]).
member(X, [_|T]) :- member(X,T).

append([], X, X).
append([X|T], Y, [X|TY]) :- append(T,Y,TY).