Evaluated proc remove:empty:list:elements list {set out [list]; set x [regsub -all \{\} $list {}]; foreach i $x {lappend $out $i}; . $i}