 (defn dump [s v]
   (println s)
   (println v)
+  (log-js v)
   (println "")
   )
 

      (let [img-seq (<! spr-chan)]
        (println "got img seq")
        (println (count img-seq))
        ;; TODO : Should be put-close!
        (put! ret-chan 
                    (->

  (let [ret-chan (chan)
        spr-chan (->>
                   sprs
                   (map (fn [[k v]] [k (str "data/" (name k ) ".png")]))
                   (map (fn [id-file] (apply rman/load-img! rman id-file)))
                   (async/merge)
                   (async/into ()))]

