Evaluated proc %- {who q} {set index [lsearch -regexp [split $::playlist($who) \n\n] $q]; . $index}