(use test) (test-begin) (load-relative "syntax.scm") (load-relative "atom.scm") (test-end)