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