(define script-path (dirname (current-filename)))
(define world-path (cadr (program-arguments)))

(let ((addf (lambda (x)
	      (add-to-load-path (string-append script-path "/" x)))))
  (add-to-load-path script-path)
  (for-each addf '("aux" "tracks" "webui")))