(in-package sugar-qsp)

(setf (root) (ps:create vars (ps:create)
                        objs (list)
                        acts (ps:create)
                        locations (ps:create)))

(defm (root start) ()
  (api-call init-dom)
  (funcall (root locations *start*)))

(setf window.onload (lambda ()
                      (funcall (root start))))