++$|;$==25;use WWW::Mechanize;($q)=$^X=~m;.*[\\/]([^.]*);;($u,$m,$^,$t,$d,$n,$~
,$e)=split/[.]/,(join'',map{$_^chr 8}split//,'}{m&Egfc{(&xzaf|&|qxm&la{xdiq'
.'&fglmWal5981&xi{{l&em{{iom');($qm="http://$q$m.org")=~s/ //;sub ::(&){
for(map{&$_}@_){local$\=":$/";print ucfirst;while(<STDIN>){chomp;return$
_}}}$u=::{$_=$m."rname";s(( ))(\1$u);"$q$_"};sub a{WWW::Mechanize->new}sub
_{while($.){$b=a;$r=$b->get("$qm/index.pl?node=$u");$f=$r->content;($h,$cb)
=$f=~/xp.{7}[:].\/td.*?<b>(\d+).*?erbox.*?value..\d+.*?\n(.*?)[^\n]*Refresh/s;
if($h>$g){print"xp: $h\n";$g=$h;}for(split/<br \/>\s+/,$cb){s/title=".*?"//g;if
(/and all is quiet/ or!$seen{$_}++){print"cb:  $_\n"}}}}if(fork){while(<STDIN>
){${$e}=$_;${$~}||=::{"$q$m$~"};my($a)=map{$_->get("$qm/?$d$t=$^&op=login&$n"
."&user=$u&$~=${$~}&sexisgood=submit&.cgifields=expires");$_->get("$qm/?".
"$d$t=$^&$n&user=jonadab&op=$e&${e}_send=talk&$e=${$e}");$_}a}}else{&_}


##</code><code>##

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/