Определить дисциплину по которой у студентов возникает больше всего трудностей (наименьший суммарный балл)

(setq *list* '((Bob  (chem 5) (math 5) (phys 5) (hist 3) (lit 3))
               (John (chem 4) (math 5) (phys 4) (hist 3) (lit 4))
               (**** (chem 5) (math 5) (phys 4) (hist 3) (lit 4))))
 
 
(defun task (list &optional a-list)
  (cond ((null list) 
           (let ((min-score (apply 'min (mapcar 'cadr a-list)))) 
                 (remove-if (lambda (pair) (> (cadr pair) min-score)) a-list)))
        (t (let* ((curr-student (cdar list)) 
                  (new-alist (mapcar (lambda (pair)
                                (let ((tmp (assoc (car pair) a-list)))
                                      (if (null tmp) pair
                                                     (list (car pair) (+ (cadr pair) (cadr tmp)))))) curr-student)))
                   (task (cdr list) new-alist)))))
 
(task *list*)
 
==> ((HIST 9))

(defvar *w* '(("Bob"  (chem 5) (math 5) (phys 5) (hist 3) (lit 3))
              ("John" (chem 4) (math 5) (phys 4) (hist 3) (lit 4))
              ("****" (chem 5) (math 5) (phys 4) (hist 3) (lit 4))))
 
(defun m-mark
    (w &aux
     (v (loop for a in (cdr (apply #'mapcar #'list w))
              collect (list (caar a)
                            (reduce #'+ a :key #'cadr))))
     (z (loop for b in v minimize (cadr b))))
  (loop for e in v when (= (cadr e) z) collect e))
 
> (m-mark *w*)
((HIST 9))