Evaluated proc rempty l {set out [list]; map $l {x {if {$x != ""} {lappend out $x}}}; return $out}