(define zdeg (lambda (item ls)
    (let ((compact (remove-all item ls)))
      (display compact)
      (letrec ((zdh (lambda (ls)
        (cond
          ((null? ls) '())
          ((equal? (length (car ls)) 1) (append (car ls)(zdh (cdr ls))))
          (else (zdh (cdr ls)))
          ))))
        (zdh compact)))))

(define remove-all (lambda (item ls)
(cond
 ((null? ls) ls)
 ((eq? item (car ls)) (remove-all item (cdr ls)))
 ((pair? (car ls)) (cons (remove-all item (car ls)) (remove-all item (cdr ls))))
 (else (cons (car ls) (remove-all item (cdr ls)))))))(define member? (lambda (item ls)
   (cond
      ((null? ls) #f)
      (else (or (eq? item (car ls))
      		(member? item (cdr ls)))))))