(reduce (fn [s1 s2] (string "[" s1 "+" s2 "]")) "x" ["a" "b" "c"]) #=> "[[[x+a]+b]+c]"