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