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