Evaluated proc evenize str { if {[expr [llength [nlsplit $str]] % 2] != 0} {} }