Evaluated proc rval {name str} {set json [json2dict $str]; set index [lsearch [lindex $json 3 3 0 3] $str]}