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