(mac module (name . body) `(let ,name (new-namespace) (eval '(do ,@body) ,name) ,name))
(w/namespace (new-namespace) (load "foo.arc") (bar))
(import foo "foo.arc" bar "bar.arc") (w/namespace foo ...) (w/namespace bar (load ...) (load ...) ...) (w/namespace (current-namespace) ...) (w/namespace (current-environment) ...) (w/namespace (table) ...)