Evaluated proc rr {{sub atheism}} {set src [http get "http://www.reddit.com/r/$sub/random.json?[expr rand()]"]; set src [wget "http://www.reddit.com/r/$sub/tb/[last [regexp -inline {/tb/(.+?).json} [join [lindex $src 1] { }]]].json"];. $src}