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