Evaluated proc a {name args} { if { $args == "" } { return [getval2 $::____arrays $name] } { varset $name [args]; return [args] } }