Evaluated proc alice str { set ::alice_last [. [string map {{  } { }} [strip_html [string tolower [last [regexp -inline {<b>A.L.I.C.E.:</b> (.+?)<br/>} [http post http://sheepridge.pandorabots.com/pandora/talk?botid=b69b8d517e345aba&skin=custom_input "botcust2=e0829a75ae0cc877&message=[urlencode $str]" "Cookie: botcust2=e0829a75ae0cc877"]]]]]]]; . [^C]11$::alice_last }