                         (into {}))
         expinfo (->> "Exp-SampleSheet.csv" (fs/join expdir)
                      get-exp-sample-info)
-        bcsz (->> expinfo drop-ncbi-xref first last count)
+        bcsz (->> expinfo :bc-xref first last count)
         exptype (get-exp-type expinfo)
         base (pams/get-params :scratch-base)
         fqbase (get-exp-info  eid :fastq)

    (mapv (fn[fut] (deref fut)) futvec)))


(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 :exp-rec ffirst keyword))


(defn ensure-dirs [& dirs]
