   (let [start (datetime->period t-res start)
         end (datetime->period t-res end)
         length (inc (- end start))
-        mk-fire-tseries (p/vals->sparsevec start length (FireTuple. 0 0 0 0))]
+        mk-fire-tseries (p/vals->sparsevec start length (fire-tuple 0 0 0 0))]
     (<- [?dataset ?m-res ?t-res ?tilestring ?sample ?line ?ct-series]
         (src ?dataset ?m-res ?t-res ?tilestring ?tperiod ?sample ?line ?tuple)
         (mk-fire-tseries ?tperiod ?tuple :> _ ?tseries)

      ((c/juxt #'conf-above-50 #'per-day) ?conf :> ?conf-50 ?count)
      (fires-above-330 ?kelvin :> ?temp-330)
      (both-preds ?conf ?kelvin :> ?both-preds)
      (tupleize ?temp-330 ?conf-50 ?both-preds ?count :> ?tuple)))

;; ## Fire Queries


  (fn [c t] (and (> t 330)
                (> c 50))))

(defn fire-tuple
  [t-above-330 c-above-50 both-preds count]
  (FireTuple. t-above-330 c-above-50 both-preds count))

