(defmacro defrule (name (input-parameter &rest other-parameters) &rest body)
  `(defun ,(intern (format "parse-%s" name)) ,(cons input-parameter other-parameters)
     (unless (zerop (length ,input-parameter))
       ,@body)))