gistfile1.clj

(defmapop decode-raw-ga [json]
  (let [m (clj-json.core/parse-string json true)]
    [(:timestamp m)]))

(defn glob-json-data [path]
  (let [tap (hfs-textline path)]
    (<- [!timestamp]
        (tap !line)
        (decode-raw-ga !line :> !timestamp)
        (:distinct false))))