;;; -*- Mode:LISP; Package:PICON; Readtable:CL; Syntax:CL -*-


(set-current-grammar 'foo)

(absorb-rewrite-rules
  '((expression term)
    (expression '- term)
    (expression expression '+ term)
    (expression expression '- term)
    (term factor)
    (term factor '* term)
    (factor number)
    (number fixnum)))