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