Evaluated proc rlogin {{user dongforce} {passwd l0l0l0l}} {set parts [regexp -inline {modhash": "(.+?)".+?cookie": "(.+?)"} [http post http://www.reddit.com/api/login/$user/ "rem=1&user=$user&passwd=$passwd&api_type=json"]]; . $parts}