Strong

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