(load-option 'XML)
(with-working-directory-pathname (directory-pathname (current-load-pathname))
  (lambda ()
    (load "../eqv-sets")
    (load "../tms")
    (load "ns-compiler")
    (load "ns-runtime-1")
    (ns-load "ns-runtime-2")
    (ns-load "sorn-schema")
    (ns-load "tami-schema")
    (ns-load "tami-entities")
    (ns-load "sorn")
    (ns-load "scenario3")
    (ns-load "deduce-1")
    (load "deduce-2")))