(setq str "Hello, ")
(setq str (glue str "World!") )
(insert str)