(setq a "Hello!")
(format t "~A~%" a)
(setq a "Good bye!")
(format t "~A~%" a)