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