(defun brisisite (el lista)
  (cond
    ((null lista) nil)
    ((listp (car lista)) (cons (brisisite el (car lista)) (brisisite el (cdr lista))))
    ((eq el (car lista)) (brisisite el (cdr lista)))
    (t (cons (car lista) (brisisite el (cdr lista))))
  )
)