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