Evaluated proc lea {lst str} {lindex $lst [+ [lsearch -exact $lst $str] 1]}