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