                  "Filters out reliability with VCF < 25"
                  (?- (hfs-seqfile reli-path)
                      (mk-filter static-path (hfs-seqfile reli-seq-path))))
-              
+
               rain-filter
               ([:tmp-dirs rain-path]
                  "Filters out rain with VCF < 25, before stretching rain ts"


;; ## Forma

(def forma-run-parameters
  {"1000-32" {:est-start "2005-12-31"
              :est-end "2011-08-01" ;; I KEEP FUCKING THIS UP
              :s-res "1000"
              :t-res "32"
              :neighbors 1
              :window-dims [600 600]
              :vcf-limit 25
              :long-block 15
              :window 5}
   "500-16" {:est-start "2005-12-31"
             :est-end "2012-06-25"
             :s-res "500"
             :t-res "16"
             :neighbors 1
             :window-dims [600 600]
             :vcf-limit 25
             :long-block 30
             :window 10
             :ridge-const 1e-8
             :convergence-thresh 1e-6
             :max-iterations 500
             :min-coast-dist 3}})

(defn constrained-tap
  [ts-pail-path dataset s-res t-res]

                     (hfs-seqfile "/mnt/hgfs/Dropbox/yikestimes"))))))

(defmain simplerunner
  [tmp-root pail-path ts-pail-path out-path run-key est-end]
  (let [{:keys [s-res t-res est-end] :as est-map} (forma-run-parameters run-key est-end)
        mk-filter (fn [vcf-path ts-src]
                    (forma/filter-query (hfs-seqfile vcf-path)
                                        (:vcf-limit est-map)
