           
permutar([],[]).

permutar(L,[X|P]):-
        borrar(X,L,Resto),
        permutar(Resto,P).


borrar(X,[X|Cola],Cola).

borrar(X,[Y|Cola1],[Y|Cola2]):- borrar(X,Cola1,Cola2).
