(deftest bryan-loop ()
  (check
    (= (car (cdr (multiple-value-list (most2 #'length '((a b) (a b c) (a)))))) 3);testing most2 using length as the lookup value
    (= (car (cdr (multiple-value-list (num-year2 2001)))) 174);testing num-year
    (= (car (multiple-value-list (num-year2 2001))) 2005)));and again.