           
permutar([],[]).

permutar([Cabeza|Cola],P):-
		permutar(Cola,Cola_permutada),
	        insertar(Cabeza,Cola_permutada,P).

borrar(X,[X|Cola],Cola).

borrar(X,[Y|Cola1],[Y|Cola2]):- borrar(X,Cola1,Cola2).

pertenece(X,L):- borrar(X,L,_).

insertar(X,L,R):-borrar(X,R,L).
