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