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