anchor.diff:    (not (some (lambda (cat) (not-empty (gethash cat balbox)))
                '(:right :up :wrong :down))))
   
  -(declaim (ftype (function (ballot-box) ballot-box) remove-extra-votes))
  +(declaim (ftype (function (ballot-box) ballot-box) remove-extra-votes print-ballot-box))
   (defun remove-extra-votes (balbox)
     "Rules:
    - An author can't have more than one positive and one negative vote, except maybe in the right/wrong
  
positive.code:       (setf (gethash 'cache balbox) totals)
        (apply #'values totals))))
  
  (defun score-vast-majority-p (pos neg)
    (unless (>= 1 pos)
      (>= (/ 1 10) (/ neg pos))))
  
negative.code: 
  (defun rank-ballot-boxes (boxes &key (keys (range (length boxes))))
    "Order the ballot boxes by rank."
    (nreverse
     (mapcar #'car
             (sort (pairlis keys boxes) #'compare-ballot-boxes :key #'cdr))))
  