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