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