(Debug from an application all the way through the kernel)
(with-environment (safe-scheme-environment) (+ 1 2))
(with-environment (safe-scheme-environment) (with-output-to-file "foo" (lambda () (write "hi")))