Evaluated proc %+ {who q} { set out ""; foreach chunk [split [string range [first [split [strip_all [song $q]] \n]] 2 end] {|}] { append ::playlist($who) "[trim $chunk]\n" }; set la [split [%% $who] \n]; lindex $la [llength $la]}