         token-to-text (fn [token] (if (= (:type token) "Punctuator")
                                     (str (:value token))
                                     (str (:value token))))]
-    (println (map :value tokens))
     (map :value tokens)))
 
 ;; TODO

        [this-line-tokens ts-rest _] (reduce fill-group [[] ts 0] groups)]
    [(string/join this-line-tokens) ts-rest]))

(defn arrange-tokens [ts img]
  (if (empty? img)
    []
    (let [[line ts-rest] (arrange-tokens-line ts (first img))]
      (conj (arrange-tokens ts-rest (rest img)) line))))


(defn analyze-code [code]

       quoted-chunks (map #(str quote % quote) chunks)
       quoted-tokens (map (fn [t] {:value t :type "String"}) quoted-chunks)
       interleaved (butlast (interleave quoted-tokens (cycle [plus])))]
    interleaved))

(defn split-string-literals [tokens l]
