Evaluated proc mitsuku str {groove swait; groove swait; groove swait; . [^C]13[strip_html [string map {{  } { } {xloadswf.} {} {xgallery.} {}} [string tolower [last [regexp -inline {<B> Mitsuku:</B> (.+?)<br>} [http post http://fiddle.pandorabots.com/pandora/talk?botid=def8d27a6e345a36&skin=mobile "botcust2=f9beef7a9e191b4&message=[urlencode $str]" "Cookie: botcust2=f9beef7a9e191b24"]]]]]]}