Evaluated proc getval2 {list val} { lindex $list [+ 1 [lsearch $list $val]] }