(load "env.ss")
(load "parser.ss")
(load "syntax.ss")
(load "interpreter.ss")

(define rep
  (lambda ()
    (begin
      (display "Money$ ")
      (let ((temp (read)))
	(if (not (equal? temp '(exit)))
	    (begin
	      (write (interpret temp))
	      (newline)
	      (rep)))))))