(deftest ric-intersection()
(check
  (equal (intersection '(b) '(a b c)) '(b))
  (equal (intersection '(b b) '(a b c)) '(b b))
  (not (intersection '(d) '(a b c)))
))