Evaluated proc %% who {set out ""; set lines [split [trim $::playlist($who)] \n]; for {set i 0} {$i < [llength $lines]} {incr i 4} { append out "\x02\u266B [pad_line [lindex $lines $i] [sl $lines 0 3]]\x02 | [pad_line [lindex $lines [+  $i 1]] [sl $lines 1 3]] | [lindex $lines [+ $i 2]]\n" };. $out }