eval environment added by sethalves on Sat Mar 24 05:21:03 2012

#;14> (define hi 5)
#;15> (eval (with-input-from-string "(set! hi 6)" read))
#;16> hi
6