(use test) (load "test.scm") (test-exit)