(let ((foo 10))
(setq foo "hello")
(format t "~A~%" foo))