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