>>753
del(_,[],[]).
del(A,[A|R1],R2) :- del(A,R1,R2).
del(A,[B|R1],[B|R2]) :- not(A=B),del(A,R1,R2).