Evaluated proc rinbox {{n 3}} {set out ""; set json [json2dict [wget http://www.reddit.com/message/inbox.json "Cookie reddit_session=$::rcookie;"]]; for {set i 0} {$i < $n} {incr i} { append out "http://reddit.com/api/info?id=[rval name $json 3 3 $i 3]\n\x02[^_][rval link_title $json 3 3 $i 3]\n[rval body $json 3 3 $i 3]\n[^B]by [^_][rval author $json 3 3 $i 3]\n \n"};trim $out}