append([],L,L).
append([H|T],A,[H|L]) :- append(T,A,L).
