(define remove-all
(lambda (obj lst)
(cond ((null? lst)
'())
((list? (car lst))
(cons (remove-all obj (car lst))
(remove-all obj (cdr lst))))
((equal? obj (car lst))
(remove-all obj (cdr lst)))
(else (cons (car lst) (remove-all obj (cdr lst)))))))