Evaluated proc nicenice {} {set playlist [nlsplit [spl malcom]]; set lim [+ [llongest [column $playlist 0]] 3]; join [map $playlist {x { set p [regexp -inline {^(.+?) - (.+?)$} $x]; . $p}}] \n}