Evaluated proc %% who {set out ""; set lines [split $::playlist($who) \n]; for {set i 0} {$i < [llength $lines]} {incr i 3} { append out [join [lrange $lines $i [+ $i 2]] " | "]\n}; . $out }