Evaluated proc nicenice {} {set playlist [nlsplit [spl malcom]]; set lim [llongest [column $playlist] 0]]; join [map $playlist {x {set p [split $x " - "]; . [pad_line [first $p] $lim] " "]}}] \n}