Evaluated proc plist who {set playlist [nlsplit [join [padlinesto [llongest [nlsplit [spl $who]]] [nlsplit [spl $who]]] \n]]; set lim [stupidcustomproc $who]; join [map $playlist {x { set p [regexp -inline {^(.+?) - (.+?)$} $x]; if {[llength $p] > 2} { . [^C]08,04[pad_line [second $p] $lim " "] [^C]00,04[third $p]}}}] \n}