concatenar([],L,L).

concatenar([Cabeza|L1],L2,[Cabeza|L3]):- 
			concatenar(L1,L2,L3).

incluir_al_final(X,L,R):- concatenar(L,[X],R).

invertir([],[]).

invertir([Cabeza|Cola],R):-
			invertir(Cola,Cola1),
			incluir_al_final(Cabeza,Cola1,R).
