          (>= ?vcf 25))))
 
 ;; ## Forma
-
 (def forma-run-parameters
   {"1000-32" {:est-start "2005-12-01"
               :est-end "2011-07-01"


(defmain BucketForma [source-path results-path & codes]
  (bucket-forma source-path results-path codes))

;; ## Rain Processing, for Dan
;;

        src (hfs-seqfile unbucketed-path)]
    (?- (hfs-textline bucketed-path
                      :sinkmode :replace
                      :sink-template "%s/%s/%s/"
                      :outfields data-fields
                      :templatefields template-fields
                      :sinkparts 3)
