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