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