gistfile1.clj

(use '[clojure.contrib.map-utils
       :only [deep-merge-with]])

(defn file-path [[first & rest]]
  (if rest
    {first (file-path rest)}
    first))

(defn restore-hierarchy [x]
  (->> x
       (map file-path)
       (apply deep-merge-with list)))