(let ((top-10 '(0 0 0 0 0 0 0 0 0 0)))
      (maphash (lambda (k v)
                 (when (> v (first top-10))
                   (pop top-10)
                   (push v top-10)
                   (sort top-10 #'<)))
               contents))