Evaluated proc evenize str { if {[expr [llength [nlsplit $str]] % 2] != 0} {. [trim $str]\n[last [nlsplit [trim $str]]]} }