(defun match (a b)
  (equal (elt (reverse a) 0) (elt b 0)))