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