Evaluated proc rr sub { set src [wget http://www.reddit.com/r/$sub.json]; set re [regexp -all -inline {id": "(.+?)".+?title": "(.+?)".+?url": "(.+?)".+?selftext": "(.*)"} $src]; set result ""; for {set i 0} {$i < [llength $re]} {incr i 4} { set re [lreplace $re $i $i]}; join $re ###\n}