(define deg (lambda (item item2 ls)
    (cond
      ((null? ls)(display "Empty list given."))
      ((member? item2 (zdeg item ls)) 0)
      ((member? item2 (1deg item ls)) 1)
      ((member? item2 (2deg item ls)) 2)
      ((member? item2 (3deg item ls)) 3)
      ((member? item2 (4deg item ls)) 4)
      ((member? item2 (5deg item ls)) 5)
      ((member? item2 (6deg item ls)) 6)
      (else 7))))
(define flatten
  (lambda (ls)
    (cond
      ((null? ls) '())
      ((pair? ls) (append (flatten (car ls)) (flatten (cdr ls))))
      (else (list ls)))))
(define remove-duplicates
  (lambda (ls)
    (if (null? ls) ls
        (let ((a (car ls)) (d (cdr ls)))
          (if (memv a d) (remove-duplicates d)
              (cons a (remove-duplicates d)))))))

(define milgrammify
  (lambda (ls)
    (letrec (mil ((milg (remove-duplicates(flat(ls)))))
      ((null? milg) #t)
      ((> (deg (car milg) (cadr milg) ls) 7) #f)
      (