(deftest ric-length ()
  (check
   (equal (length '()) 0)
   (equal (length '(a (b c) d)) 3)))