Interpreter in Scheme
(import
(scheme base)
(scheme eval))
(define (main)
(define program (open-input-file (list-ref (command-line) 1)))
(do ()
((eof-object? (peek-char program))
#f)
(if (char-whitespace? (peek-char program))
(read-char program)
(eval (read program) (interaction-environment)))))
(main)