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