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