Evaluated proc rlist sub { set json [json2dict [wget http://www.reddit.com/r/$sub.json]]; set out ""; for {set i 0} {$i < [llength [lindex $json 3 3]]} {incr i} { append out "[rval name $json \"3 3 $i 3\"]\n[rval title $json \"3 3 $i 3\"]\n[rval selftext $json \"3 3 $i 3\"]\nby [rval author $json \"3 3 $i 3\"]\n \n" }; . $out }