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