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