        (clojure.string/join "")))
 
 
-
-
 (declare strings-agg-head)
 
 (defn map-agg-head


(defn strings-agg-head
  [[agg-head & agg-tail :as agg] [next & tail :as items]]
  (cond (empty? items) agg
        (string? next) #(strings-agg-head (concat [(conj agg-head next)]
                                                  agg-tail)
                                          tail)

(defn ->meta-string-pairs
  [v]
  (let [[head :as all] (util/$- ->> v
                                (trampoline map-agg-head [])
                                reverse
                                (drop-while #{""}))]
    (partition-all 2 (if (string? head)
                       (concat [{}] all)
