(defn js-star-interp
[env ^String s]
(let [idx (.indexOf s "~{")]
(if (== -1 idx)
(list s)
(let [end (.indexOf s "}" idx)
inner (:name (resolve-existing-var env (symbol (subs s (+ 2 idx) end))))]
(lazy-seq
(cons (subs s 0 idx)
(cons inner
(js-star-interp env (subs s (inc end))))))))))