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