add_to_end([], X, [X]).
add_to_end([H|T], X, M) :- add_to_end(T, X, U), M=[H|U].