Evaluated proc rr sub { set src [wget http://www.reddit.com/r/$sub.json]; join [regexp -all -inline {id": "(.+?)".+?title": "(.+?)"} [fix_slashes $src]] "\n--------\n"}