(defparameter *grammar-version* "Exercise 4")

(lkb-load-lisp (this-directory) "globals.lsp")

(lkb-load-lisp (this-directory) "user-fns.lsp")

(read-tdl-type-files-aux (list (lkb-pathname (this-directory) "types.tdl")))

(read-tdl-lex-file-aux (lkb-pathname (this-directory) "lexicon.tdl"))

(batch-check-lexicon)

(read-morph-file-aux (lkb-pathname (this-directory) "irules.tdl"))

(read-morph-file-aux (lkb-pathname (this-directory) "lrules.tdl"))

(read-tdl-grammar-file-aux (lkb-pathname (this-directory) "rules.tdl"))

(read-tdl-psort-file-aux (lkb-pathname (this-directory) "roots.tdl"))

(read-tdl-parse-node-file-aux (lkb-pathname (this-directory) "labels.tdl"))