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