Evaluated proc %- {who q} { lsearch -regexp [split [string toupper [%% $who]] "\n"] [string toupper $q] }