Evaluated proc asctrim {str l} { join [map [nlsplit $str] {x {string range $x 0 $l}}] \n}