Evaluated proc llongest mylist { set ok 0; map $mylist {x { if {[string length $x] > $ok} {set ok [string length $x]} }}; . $ok }