concatenar([],L,L).

concatenar([X|L1],L2,[X|L3]):- concatenar(L1,L2,L3).

incluir_al_principio(X,L,[X|L]).

incluir_al_final(X,L,R):- concatenar(L,[X],R).
