                      (hfs-seqfile "/mnt/hgfs/Dropbox/yikestimes"))))))
 
 (defmain simplerunner
-  [tmp-root pail-path ts-pail-path out-path run-key]
-  (let [{:keys [s-res t-res est-end] :as est-map} (forma-run-parameters run-key)
+  [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)

                 "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/analyze-trends
                      est-map
                      (hfs-seqfile clean-series))))

              trends-cleanup
              ([:tmp-dirs cleanup-path]
                 "Clean up data after trends to improve join performance. Joins
                  kill us with lots of observations"
                 (?- (hfs-seqfile cleanup-path)
                     (forma/trends-cleanup (hfs-seqfile trends-path))))

              fire-step
              ([:tmp-dirs fire-path]
                 "Create fire series"
