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