#!/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;$ip,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,);$s=0;for($i=0;$i122){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"} }