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