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

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

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

