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