Evaluated proc getval2 {list val} { if { [set i [lsearch $list $val]] >= 0 } { lindex $list [+ 1 $i] } }