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