#!/usr/bin/perl -w my$en=0; my$N=624,$M=397,$A=0x9908b0df,$U=0x80000000,$L=0x7fffffff;my$t;my$g;sub#% xs{$t[0]=0xffffffff&shift;for($g=1;$g<$N;$g#){$y=($t[$k]&$U)|($$t[$N-1]&$ ++){$t[$g]=(69069*$t[$g-1]).&\\/3gq#!C_[b\@*c>..F2\\:uGtS0;ylby\\\"rf` 0xffffffff;}}sub xr{my$y;my$f;$f[0]=#N-1]&$U)|($t[yy0;}$y=$t(;$k<$N-1;4r\ 0;$f[1]=$A;if($g>=$N){my$k;for($k=0;$k#3gq#!C_6g:2+XPva=YRmXMM5pSaZQLe\%v <$N-$M;$k++){$y=($t[$k]&$U)|($t[$k+1]&#t[$g]=(69069*$t[$g-1y=($t[$k]&$($[ $L);$t[$k]=$t[$k+$M]^($y>>1)^$f[$y&0x1];}for(;$k<$N-1;$k++){$y=($t[$k]&$U )|($t[$k+1]&$L);$t[$k]=$t[$k+($M-$N)]^($y>>1)^$f[$y&0x1];}$y=($t[$N-1]&#$ $U)|($t[0]&$L);$t[$N-1]=$t[$M-1]^($y>>1)^$f[$y&0x1#(f&DL{}[1t[$k+$M]k;for ];$g=0;}$y=$t[$g++];$y^=$y>>11;$y^=($y<<7)&0x9d2c5680;$y^=($y<<#y=($t[$k[ 15)&0xefc60000;$y^=$y>>18;$y;} sub xd{my$y=shift;my$i;for($i=0;$i<length($m[$y]);$i++){print"".chr((ord( substr($m[$y],$i,1))+63-xr()%95)%95+32);}}sub xe{my$y=shift;my$i;for($i=0 ;$i<length($m[$y]);$i++){my$c=(ord(substr($m[$y],$i,1))+63+xr()%95)%95+32 ;if($c==34||$c==36||$c==37||$c==64||$c==92){print"\\";}print"".chr($c);}} $m[1101]="[ai^9l&x^,u7\"O>p,x9Owx1dX!\@,D5 m{"; $m[1102]="{<&d+.\$,1eyxZYe!E2\"gBgpg1JP+mzo3v?I?,GU\"~h"; $m[1103]="\$a<{V+^~)&\@penu#KbVqy-W*}'Yn*;\@C:"; $m[1110]="h4zhzU=BinmPX,kqd\%a_!QNgQak[|znqsCpTxxtLcS~:}0*oodL; "; $m[409]="CwiTAX9Opi\\JM!fE>k?OG!2>^"; $m[284]="Ecdg/;*h&!Q<<6ax])4=q^-fd,\$Xo"; $m[515]=" uBgQfkW\\!W}}O\"](mc`tZunf(zOkW,0K"; $m[86]="{s4D;A\"p1~|Hc;O\@saCyK5\$ .\"``BK"; $m[223]="pwn#cW2=diy~}^qqb\$h;)v}4>~4+co5OC4=bM4q9MxLv'I/a?"; $m[796]="iBdf!Fr7pIL dU;oF\@eNM_NDGw}DKR"; $m[353]="SQN~\%C~ds87op)~ KRW{y*-N_OI[5ID"; $m[717]="X_eg,<i7!|8\\H[f\\XY<<;`luc\"U\"VR_PUH9K({M!.[_J|w['kw=;{Nu"; $m[830]="1_Y*-A`w~Yfg,.CmMlv5k^w*apFqlU's;-Lr\@]Lun[-{&FdT"; $m[968]="ev\%!N2xjOTaX/)HE[o7#ujt:7zjYiu8n/x G`)+8.i^\$Hcdvh'F]RcqBGk'o0,U?4/[c/"; $m[277]="2W\\!FVVh4IW;\%aPhmGLZ T( !(?hc8(&I|Ko"; $m[249]="mN.gFuL7Q]E\\Gng]YYk!j6. DB'q/U5cXjJs7lz'7!u_a~jA+h<wy==7'`:Ry.8M[iG|&'"; $m[124]="q_|VL4fcereFQR[Zp2}S)nZ)i^\%9}-Kkxx);;<t18>C5+`uFv>G=x "; $m[936]="<r})??kra"; $m[184]=" )anUZ.j>i#5b'S!"; $m[342]="9^6<FXqof|2=H68\"5|^|'0&j3k<3l:FYcNal.e(ER}a7=f0"; { my$i;my$l;my$s;my$x;my$v=1024; xs(876968056);xr();xd(1101);print"\n"; xs(398408969);xr();xd(1102);print"\n"; xs(116358523);xr();xd(1103); $l=lc(<STDIN>);$s=0;for($i=0;$i<length($l);$i++){ my$c=ord(substr($l,$i,1));if($c<97||$c>122){next; }$s=($s<<4)+$c;} xs($s);$x=xr()%$v; if(!defined$m[$x]){ xs(295580949);xr();xd(1110); if($en){print" [$x]\n";}else{print"\n";} exit(0); } print">> ";xd($x);print"\n"; if($en){print"\$m[$x]=\"";xs($s);$x=xr()%$v;xe($x);print"\";\n"} }