arathnim

(load "parmesan-test.cl")
(in-package parmesan)

(defparser symbol  (intern (string-upcase (many+ letters))))
(defparser integer (parse-integer (many+ digits)))
(defparser quoted  (between "'" (many (except "'")) "'"))
(defparser term    (car ((choice quoted symbol integer sexp) (skip (many " ")))))
(defparser sexp    (between "(" (manyc term)) ")"))