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