Evaluated proc rlist sub { set json [json2dict [regsub -all "\n" [wget http://www.reddit.com/r/$sub.json] {}]]; set out ""; for {set i 0} {$i < [llength [lindex $json 3 3]]} {incr i} { append out "[^C]04[rval name $json 3 3 $i 3]\n\x02[^_][rval title $json 3 3 $i 3]\n[regsub { } [rval url $json 3 3 $i 3] {:}]\n[ctext [rval selftext $json 3 3 $i 3]]\n[^B]by [^_][rval author $json 3 3 $i 3]\n \n" }; trim $out}