(deftest ric-last ()
  (check
    (not (last '()))
    (equal (last '(a)) '(a))
    (equal (last '(a b)) '(b))
))