Evaluated proc a {name {val {}}} { if { $val == "" } { return getval $::____arrays $name  } { . set  } }