Evaluated proc nicenice who {set playlist [nlsplit [spl malcom]]; set lim [stupidcustomproc $who]; join [map $playlist {x { set p [regexp -inline {^(.+?) - (.+?)$} $x]; . [pad_line [second $p] $lim " "] [third $p]}}] \n}