(let (str1 "foo")
     (println str1)
     (let (str2 (string str1 "bar"))
	  (println str2)))