(deftest ric-append()
  (check 
    (equal (append '(a) '(b)) '(a b))
    (equal (append '(a) 'b) '(a . b))))