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