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