Evaluated proc remval {list name} { set i [lsearch $list $name]; if { $i > -1 } { lreplace $list $i [+ $i 1] } { error "element '$name' not found" } }