(source "r6rs.ss")
(source "parameters.ss")
(source "match.ss")
(source "interp.ss")
(library main
(export)
(import interp r6rs)
(write (ee '(let ((x 5))
(let ((y (+ x x)))
(+ y x)))))
(newline))
(invoke main)
;(dump main "main.pp")