     (mapv (fn[fut] (deref fut)) futvec)))
 
 
+(declare get-exp-info)
 (defn collect-barcode-stats [eid]
   (let [nextseq-base (pams/get-params :nextseq-base)
         expdir (fs/join nextseq-base eid)


(defn get-exp-type
  [exp-samp-info]
  (-> exp-samp-info ffirst keyword))


(defn ensure-dirs [& dirs]

      ((fn[m]
         (assoc m :replicate-names
                (->> (m :exp-sample-info)
                     :bc-xref
                     (map second)
                     (group-by (fn[rnm]
                                 (->> rnm (str/split #"-")
