Evaluated proc pics who {getval $::ok123 [string toupper $who]}