(deftest ric-nth()
(let ((testlist '(a b c)))
  (check
    (equal (nth 0 testlist) 'a)
    (equal (nth 1 testlist) 'b)
    (equal (nth 2 testlist) 'c)
    (not (nth 3 testlist)))))