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