bandit

local f=string.byte;local h=string.char;local c=string.sub;local C=table.concat;local l=table.insert;local s=math.ldexp;local u=getfenv or function()return _ENV end;local l=setmetatable;local r=select;local a=unpack or table.unpack;local i=tonumber;local function K(d)local e,n,o="","",{}local a=256;local t={}for l=0,a-1 do t[l]=h(l)end;local l=1;local function f()local e=i(c(d,l,l),36)l=l+1;local n=i(c(d,l,l+e-1),36)l=l+e;return n end;e=h(f())o[1]=e;while l<#d do local l=f()if t[l]then n=t[l]else n=e..c(e,1,1)end;t[a]=e..c(n,1,1)o[#o+1],e,a=n,n,a+1 end;return table.concat(o)end;local i=K('24X24K27524N24G27524K25V25H25P25S27927F24S26C24N24H27925W27C25Y25Z27727925F25H25L25D24N24T27926R25N25Y25R25Z27M25J27V24Q27926B25D25S26825D25Z28525M25C25H25M25S27P24I27925Z25S25Y25P25M25F27Q27525E28R25C28U24K26I27T27V28M27526E28I25C27D24N28727526A28X29D27O25S26F25O25P25K28Y25027926K25T25L28I25N25P25C26U25N25N25S26S25H25Y25S24N24S27926D25M25J25O28025D25C24L24L24N29424K26F26A25Y29224N24J27926S25K25H26525D27O24N24V27926G25N25J25H25K2AQ2AS2AU27W27929I2A125H25J25S2B624N27925M25D25V27F2BK2BL24K24W22S2BK2472792522AX27524L2BS25424K2BW24M27F2C12752C12C124I25227928M2BW2BW24G24R2C92BZ24K2CD2792462CG2BT2792BF27525225A2CG27827523O2BV2CG27K2CV2CG2BW2AH2CG2C32BM24K2C12CT27523V2CL2AX27K2AO2CU23P24K27K27K2A52CZ28M27827X2C824K2AO24U2BL2DD2D624K29427K2742CB2CH2CE2752DZ2E12792DA2BW23O23R2DH2CH24K2AX2522BY2AO24O27F25B2EB2AO2C624Z2EB2E72792CI2D92CG2E92EB2782EE2572DQ24K2EI2BK2DU2C124427527K24P24K2872CZ27K2EX24K2DP2EH2DT2F02C12DP2DM2792DL2DW24K29N2FO28M25124K2FS2FF2FV2BF28M28M2EI23O2CV2G024K2CE2FG2G62FN2752AO2AO2532FX24K2A524W2BS27527X2GI2CP2752DS2742BK2DR2DV2CF28M2AO29N2EB2CE2G027K2752F92C02E52H22CS2E22792BW2FP2CW275');local l=bit32 or require('bit');local o=l and l.bxor or function(l,n)local e,o=1,0 while l>0 and n>0 do local c,a=l%2,n%2 if c~=a then o=o+e end l,n,e=(l-c)/2,(n-a)/2,e*2 end if l<n then l=n end while l>0 do local n=l%2 if n>0 then o=o+e end l,e=(l-n)/2,e*2 end return o end local function n(n,l,e)if e then local l=(n/2^(l-1))%2^((e-1)-(l-1)+1);return l-l%1;else local l=2^(l-1);return(n%(l+l)>=l)and 1 or 0;end;end;local l=1;local function e()local a,n,e,c=f(i,l,l+3);a=o(a,164)n=o(n,164)e=o(e,164)c=o(c,164)l=l+4;return(c*16777216)+(e*65536)+(n*256)+a;end;local function d()local e=o(f(i,l,l),164);l=l+1;return e;end;local function t()local e,n=f(i,l,l+2);e=o(e,164)n=o(n,164)l=l+2;return(n*256)+e;end;local function K()local o=e();local l=e();local c=1;local o=(n(l,1,20)*(2^32))+o;local e=n(l,21,31);local l=((-1)^n(l,32));if(e==0)then if(o==0)then return l*0;else e=1;c=0;end;elseif(e==2047)then return(o==0)and(l*(1/0))or(l*(0/0));end;return s(l,e-1023)*(c+(o/(2^52)));end;local s=e;local function B(e)local n;if(not e)then e=s();if(e==0)then return'';end;end;n=c(i,l,l+e-1);l=l+e;local e={}for l=1,#n do e[l]=h(o(f(c(n,l,l)),164))end return C(e);end;local l=e;local function h(...)return{...},r('#',...)end local function C()local i={};local c={};local l={};local f={i,c,nil,l};local l=e()local o={}for n=1,l do local e=d();local l;if(e==1)then l=(d()~=0);elseif(e==0)then l=K();elseif(e==3)then l=B();end;o[n]=l;end;f[3]=d();for l=1,e()do c[l-1]=C();end;for f=1,e()do local l=d();if(n(l,1,1)==0)then local c=n(l,2,3);local a=n(l,4,6);local l={t(),t(),nil,nil};if(c==0)then l[3]=t();l[4]=t();elseif(c==1)then l[3]=e();elseif(c==2)then l[3]=e()-(2^16)elseif(c==3)then l[3]=e()-(2^16)l[4]=t();end;if(n(a,1,1)==1)then l[2]=o[l[2]]end if(n(a,2,2)==1)then l[3]=o[l[3]]end if(n(a,3,3)==1)then l[4]=o[l[4]]end i[f]=l;end end;return f;end;local function K(l,e,f)local n=l[1];local e=l[2];local l=l[3];return function(...)local c=n;local e=e;local o=l;local h=h local n=1;local t=-1;local s={};local d={...};local i=r('#',...)-1;local l={};local e={};for l=0,i do if(l>=o)then s[l-o]=d[l+1];else e[l]=d[l+1];end;end;local l=i-o+1 local l;local o;while true do l=c[n];o=l[1];if o<=17 then if o<=8 then if o<=3 then if o<=1 then if o==0 then local n=l[2]local c={e[n](a(e,n+1,t))};local o=0;for l=n,l[4]do o=o+1;e[l]=c[o];end else e[l[2]]=l[3];end;elseif o==2 then local l=l[2]e[l]=e[l](e[l+1])else e[l[2]]=e[l[3]][l[4]];end;elseif o<=5 then if o==4 then local l=l[2]local o,n=h(e[l](e[l+1]))t=n+l-1 local n=0;for l=l,t do n=n+1;e[l]=o[n];end;else local o=l[2];local a=l[4];local c=o+2 local o={e[o](e[o+1],e[c])};for l=1,a do e[c+l]=o[l];end;local o=o[1]if o then e[c]=o n=l[3];else n=n+1;end;end;elseif o<=6 then do return end;elseif o>7 then e[l[2]][l[3]]=l[4];else local n=l[2]e[n]=e[n](a(e,n+1,l[3]))end;elseif o<=12 then if o<=10 then if o>9 then if e[l[2]]then n=n+1;else n=l[3];end;else e[l[2]]=e[l[3]][l[4]];end;elseif o==11 then e[l[2]]=f[l[3]];else local l=l[2]e[l]=e[l](e[l+1])end;elseif o<=14 then if o>13 then if not e[l[2]]then n=n+1;else n=l[3];end;else local l=l[2]local o,n=h(e[l](e[l+1]))t=n+l-1 local n=0;for l=l,t do n=n+1;e[l]=o[n];end;end;elseif o<=15 then n=l[3];elseif o>16 then e[l[2]]=f[l[3]];else n=l[3];end;elseif o<=26 then if o<=21 then if o<=19 then if o>18 then local o=l[2]local c={e[o](a(e,o+1,t))};local n=0;for l=o,l[4]do n=n+1;e[l]=c[n];end else if not e[l[2]]then n=n+1;else n=l[3];end;end;elseif o>20 then do return end;else e[l[2]][l[3]]=l[4];end;elseif o<=23 then if o>22 then if e[l[2]]then n=n+1;else n=l[3];end;else e[l[2]]=e[l[3]]*e[l[4]];end;elseif o<=24 then local o=l[2];local n=e[l[3]];e[o+1]=n;e[o]=n[l[4]];elseif o>25 then local o;local d;local i,s;local r;local o;e[l[2]]=f[l[3]];n=n+1;l=c[n];e[l[2]]=e[l[3]][l[4]];n=n+1;l=c[n];o=l[2];r=e[l[3]];e[o+1]=r;e[o]=r[l[4]];n=n+1;l=c[n];o=l[2]i,s=h(e[o](e[o+1]))t=s+o-1 d=0;for l=o,t do d=d+1;e[l]=i[d];end;n=n+1;l=c[n];o=l[2]i={e[o](a(e,o+1,t))};d=0;for l=o,l[4]do d=d+1;e[l]=i[d];end n=n+1;l=c[n];n=l[3];else e[l[2]][l[3]]=e[l[4]];end;elseif o<=30 then if o<=28 then if o==27 then local n=l[2]e[n]=e[n](a(e,n+1,l[3]))else e[l[2]]=l[3];end;elseif o>29 then local c=l[2];local a=l[4];local o=c+2 local c={e[c](e[c+1],e[o])};for l=1,a do e[o+l]=c[l];end;local c=c[1]if c then e[o]=c n=l[3];else n=n+1;end;else e[l[2]]=e[l[3]]*e[l[4]];end;elseif o<=32 then if o==31 then local t;local o;e[l[2]]=l[3];n=n+1;l=c[n];o=l[2]e[o]=e[o](a(e,o+1,l[3]))n=n+1;l=c[n];e[l[2]][l[3]]=l[4];n=n+1;l=c[n];o=l[2];t=e[l[3]];e[o+1]=t;e[o]=t[l[4]];n=n+1;l=c[n];e[l[2]]=l[3];n=n+1;l=c[n];o=l[2]e[o]=e[o](a(e,o+1,l[3]))n=n+1;l=c[n];e[l[2]]=f[l[3]];n=n+1;l=c[n];e[l[2]]=e[l[3]][l[4]];n=n+1;l=c[n];e[l[2]]=e[l[3]][l[4]];n=n+1;l=c[n];e[l[2]]=e[l[3]][l[4]];else local o;e[l[2]]=e[l[3]][l[4]];n=n+1;l=c[n];e[l[2]]=f[l[3]];n=n+1;l=c[n];e[l[2]]=e[l[3]][l[4]];n=n+1;l=c[n];e[l[2]]=l[3];n=n+1;l=c[n];e[l[2]]=l[3];n=n+1;l=c[n];e[l[2]]=l[3];n=n+1;l=c[n];o=l[2]e[o]=e[o](a(e,o+1,l[3]))n=n+1;l=c[n];e[l[2]]=e[l[3]]*e[l[4]];n=n+1;l=c[n];e[l[2]][l[3]]=e[l[4]];end;elseif o<=33 then local o;e[l[2]]=e[l[3]][l[4]];n=n+1;l=c[n];e[l[2]]=e[l[3]][l[4]];n=n+1;l=c[n];e[l[2]]=l[3];n=n+1;l=c[n];o=l[2]e[o]=e[o](a(e,o+1,l[3]))n=n+1;l=c[n];if not e[l[2]]then n=n+1;else n=l[3];end;elseif o==34 then e[l[2]][l[3]]=e[l[4]];else local o=l[2];local n=e[l[3]];e[o+1]=n;e[o]=n[l[4]];end;n=n+1;end;end;end;return K(C(),{},u())();