(setf *rule-semantics-file* "/mit/jcbourne/Psets/6863/lab6/new-rules")
(setf *word-semantics-file* "/mit/jcbourne/Psets/6863/lab6/new-words")

(defun again ()
  (init-syntax)
  (top-level))