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