                     (.openTapForWrite tap))]
       (doseq [item (for [[h v]  tileseq
                          sample (range (pixels-at-res res))
-                         line   (range (pixels-at-res res))]
+                         line (range (pixels-at-res res))]
                      [h v sample line])]
         (.add collector (Util/coerceToTuple item))))
     (name-vars tap ["?mod-h" "?mod-v" "?sample" "?line"])))

    res - The spatial resolution.
    tileseq - Map of country ISO keywords to MODIS tiles (see: forma.source.tilesets)"
  [tmp-path res tileseq]
  (let [tap (:sink (hfs-seqfile tmp-path))]
    (with-open [^TupleEntryCollector collector
                (-> (hadoop/job-conf (conf/project-conf))

        [forma.reproject :only (pixels-at-res)])
  (:require [forma.utils :as u]
            [forma.schema :as schema]
            [forma.reproject :as r]
            [forma.thrift :as thrift]
            [forma.hadoop.io :as io]
            [clojure.string :as s]
            [cascalog.ops :as c]
