Evaluated proc %- {who q} {set id [lsearch -regexp [split $::playlist($who) "\n\n"] $q]; set index [expr floor($id/2.0)]; . "index: $index\nid: $id"}