(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)))))