Evaluated proc rinbox {} {set out ""; set src [wget http://www.reddit.com/r/makeshitup.json "Cookie reddit_session=$::rcookie;"]; for {set i 0} {$i < [llength [lindex [json2dict $src] 3 3]]} {incr i} { append out "#[rval name $src {3 3 $i 3}]\n\x02[rval link_title $src {3 3 $i 3}]\n[rval body $src]\n\x02by [rval author $src {3 3 $i 3}]\n"};. $out}