Evaluated proc clean_list_newline list {map $list {x {if {$x != "cum"} {. $x}}}}