(demunge name)
(defn demunge [name] ((if (symbol? name) symbol str) (let [name' (str name)] (if (identical? name' "_DOT__DOT_") ".." (demunge-str name')))))