RosettaCodeData/Task/String-prepend/Clojure/string-prepend.clj

(def s (ref "World"))
(dosync (alter s #(str "Hello " %)))

user=> @s
"Hello World"