Eskatrem

(defun eq-assoc (assoc-a assoc-b)
  (and (equal (length assoc-a) (length assoc-b))
       (reduce (lambda (accum pair)
                 (and accum
                      (equal pair (assoc (car pair) assoc-b))))
               assoc-a
               :initial-value t)))

(defun group (list)
  (let ((even t))