Evaluated proc remval {list name} { set i [lsearch $list $name]; lreplace $list $i [+ $i 1] {}  }