(defun f(s) 
( if (null s) nil 
(let((c(first s))(r(rest s)))) 
(cond((and(numberp x)(member x c))(remove c))) 
(t (cons(f(c)(f(r))))))