(deftest ric-third()
  (let ((testlist '(a b c f g)))
  (check 
   (equal (third testlist) (caddr testlist)))))