        (map read-string)
        ))
 
-(->> "tmp/location-dump_non-atoms_2017-06-05_1.txt"
+'(->> "tmp/location-dump_non-atoms_2017-06-05_1.txt"
      read-lines
      (take 1000000)
      (def location-dump-data)



;(->> "/Users/dgopstein/opt/src/gcc/contrib/paranoia.cc" location-dump-atoms-and-non-atoms (map prn))
(->> "/Users/dgopstein/opt/src/gcc/libatomic/gload.c" location-dump-atoms-and-non-atoms (map prn))

(defn now [] (java.util.Date.))
'(->> (now) println)

(->> (str gcc-path "/libatomic")
     (pmap-dir-files location-dump-atoms-and-non-atoms)
     (mapcat (partial map #(update % :node write-node)))
     (map #(merge %1 (if (:path %1) {:depth (count (:path %1))} {})))

         }
      ))))

'(->> location-dump-data
     (partition-by first)
     (map (fn [lst] [(first (first lst)) (map rest lst)]))
     (drop 240)(take 3)
