Evaluated proc strchomp str {join [chomp [nlsplit $str]] \n}