Evaluated proc clean_list_newline list {set out [list]; map $list {x {if {$x != {}} {lappend $out $x}}}; . $out}