Evaluated proc clean_list_newline list {set out [list]; foreach x $list {if {$x != {\n}} {lappend $out $x}}; return $out;}