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