build-paths.clj

(defn build-paths
  "Given a tree (map), return all the paths leading to a value."
  [m]
  (->> (for [[k v] m]
         (if (map? v)
           (map #(cons k %) (build-paths v))      
           [[k]]))
       (apply concat)))