%-----------------------------------------------------------------------------
%----Mega append
mega_append([OneList],OneList).

mega_append([FirstList|OtherLists],Result):-
    mega_append(OtherLists,MegaOthers),
    append(FirstList,MegaOthers,Result).
%-----------------------------------------------------------------------------
append([],L,L).

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