Evaluated proc stupidcustomproc who { set ok 0; map [nlsplit [spl $who]] {x { set cum [split $x -]; set fuck [string length [first $cum]];  if {$fuck > $ok} {set ok $fuck}}} . $ok}