Evaluated proc stupidcustomproc playlist { set ok 0; map $playlist {x { set r [regexp  -inline {^(.+?) - .+?\n} $x]; set fuck [string length [second $r]]; if {$fuck > $ok} {set ok $fuck}; . $r }}; }