apnd([], List, List).
apnd( [Head | List1], List2, [Head | List3] ) :- apnd(List1, List2, List3).