Evaluated proc mitsuku str {map [seq 1 $::mitsuku_delay] {x {groove swait}}; set ::mitsuku_last [. [trim [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=$::botcust2&message=[urlencode $str]" "Cookie: botcust2=$::botcust2"]]]]]]]; . [^C]13$::mitsuku_last}