Evaluated proc %% who {set out ""; foreach line [split $::playlist($who) \n\n] {set parts [split $line \n]; 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 }