                      (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)

                                      est-map
                                      (hfs-seqfile cleanup-path)
                                      (hfs-seqfile adjusted-fire-path))))
              
              final-forma
              ([:tmp-dirs final-path]
                 "Process neighbors"

                     (<- [?subpail ?data-chunk]
                         ((constrained-tap pail-path "vcf" s-res "00") ?subpail ?data-chunk))))


              ndvi-step
              ([:tmp-dirs ndvi-path]
                 (?- (hfs-seqfile ndvi-path)
                     (mk-filter vcf-path
                                (constrained-tap
                                 ts-pail-path "ndvi" s-res t-res)))))))
