(defmacro defrule (name param-list &rest body)
  `(defun ,(intern (format "parse-%s" name)) param-list
    (if (equal (length ,(car param-list) 0)
      nil
      ,@body))))

(defrule ordinary (input)
  (list (substring input 1 nil) (list 'literal (aref input 0))))