Evaluated proc varset {name val} { set ::____arrays [setval $::____arrays $name $val] }