p:-append(X,X,X).
append([],L,L).
append([H|L1],L2,[H|L3]) :- append(L1,L2,L3).