Evaluated proc 2dsize str {set l 0; foreach line [split $str \n] { if {[string length $line] > $l} {set l [string length $line]} }; return $l }