Evaluated proc d name { set ::____arrays [remval $::____arrays $name]; return [a $name] }