Написать рекурсивную функцию, удаляющую из многоуровневого списка символы

(defun ns (w &aux (a (car w)))
  (cond ((null w) nil)
        ((atom a) (if (numberp a) (cons a (ns (cdr w)))
                      (ns (cdr w))))
        ((cons (ns a) (ns (cdr w))))))
 
> (ns '((1 a) 2 b (((3) (c 4)))))
((1) 2 (((3) (4))))

(defun ns (w &aux (a (car w)) (d (cdr w)))
  (cond ((null w) nil)
        ((atom a) (if (numberp a) (cons a (ns d))
                      (ns d)))
        ((cons (ns a) (ns d)))))
 
> (ns '((1 a) 2 b (((3) (c 4)))))
((1) 2 (((3) (4))))

(defun ns (w &aux (a (car w)) (d (cdr w)))
  (when w (if (atom a) (if (numberp a) (cons a (ns d))
                           (ns d))
              (cons (ns a) (ns d)))))
 
> (ns '((1 a) 2 b (((3) (c 4)))))
((1) 2 (((3) (4))))

(defun ns (w)
  (loop for a in w
        if (listp a) collect (ns a)
        else if (numberp a) collect a))
 
> (ns '((1 a) 2 b (((3) (c 4)))))
((1) 2 (((3) (4))))

(defun task (list)
  (let ((r nil))
    (iter (for a in list)
          (cond ((numberp a) (collecting a into r))
                ((listp a) (collecting (task a) into r)))) r))
 
==> TASK
 
(task '(1 2 a (b c 4)))
==> (1 2 (4))

(defun task (list)
  (cond ((null list) nil)
        ((listp (car list)) (cons (task (car list)) (task (cdr list))))
        ((symbolp (car list)) (task (cdr list)))
        (t (cons (car list) (task (cdr list)))))) 
 
==> TASK
(task '((1 a) 2 b (((3) (c 4)))))
 
==> ((1) 2 (((3) (4))))