permutation2( [],[]).
permutation2( L, [ X|P]) :-
  del( X,L,L1),
  permutation2( L1,P).

del( X, [ X|T], T).
del( X, [ Y|T], [ Y|T1]) :- del( X,T,T1).