 (def exploded-data-liquids-gboe
   (->> flat-data
        (mapcat explode-row)
-       (map #(update % :value (fn [v] (double (/ (* 6.29 v) 1000)))))
+       (map #(update % :value (fn [v] (double (* 6.29e-3 v)))))
        (sort-by :year)
        (vec)))
 
 (def exploded-data-gas-gboe
   (->> flat-data-gas
        (mapcat explode-row)
-       (map #(update % :value (fn [v] (double (/ (* 6.29 v) 1000)))))
+       (map #(update % :value (fn [v] (double (* 6.29e-3 v)))))
        (sort-by :year)
        (vec)))
  (for [yr (range start-year (inc stop-year))]
    (produce-row-year yr :gas)))

(defn explode-row [row]
  (reduce (fn [o k]
            (conj o {:year  (:year row)

                     (map :year)
                     (apply min)))

(def stop-year max-complete-year)

(def producing-field-names (->> parsed
                                (filter #(= :producing (:status %)))
