% file: append
% query: append([the,painter],[painted,the,sculpture],S)?

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