dirt

local t=string.byte;local r=string.char;local c=string.sub;local b=table.concat;local s=math.ldexp;local Y=getfenv or function()return _ENV end;local l=setmetatable;local u=select;local i=unpack;local f=tonumber;local function h(t)local e,o,n="","",{}local d=256;local a={}for l=0,d-1 do a[l]=r(l)end;local l=1;local function i()local e=f(c(t,l,l),36)l=l+1;local o=f(c(t,l,l+e-1),36)l=l+e;return o end;e=r(i())n[1]=e;while l<#t do local l=i()if a[l]then o=a[l]else o=e..c(e,1,1)end;a[d]=e..c(o,1,1)n[#n+1],e,d=o,o,d+1 end;return table.concat(n)end;local a=h('2121Y2751X2142751Y22622521V21Y22922E22822322421X1X27427521X21V22721Z1X21127922Y22E22E22A22T21Z22E1X1327922227W22A2291O1D1D22A21V27F21Z21S27I1C21T2252271D22821V22D1D1N21S2301K22A22G23F1N27927521727923J21625U26525X21627523F21E29526521E27523E2161I1Y2652981Y2371229C1227523229L29K29F29Q29J29W23I1Y29Q26527923I21629E29U1Y2A42752A7');local n=bit and bit.bxor or function(l,e)local o,n=1,0 while l>0 and e>0 do local c,a=l%2,e%2 if c~=a then n=n+o end l,e,o=(l-c)/2,(e-a)/2,o*2 end if l<e then l=e end while l>0 do local e=l%2 if e>0 then n=n+o end l,o=(l-e)/2,o*2 end return n end local function e(e,l,o)if o then local l=(e/2^(l-1))%2^((o-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 o()local c,e,o,a=t(a,l,l+3);c=n(c,34)e=n(e,34)o=n(o,34)a=n(a,34)l=l+4;return(a*16777216)+(o*65536)+(e*256)+c;end;local function d()local e=n(t(a,l,l),34);l=l+1;return e;end;local function E()local l=o();local n=o();local c=1;local o=(e(n,1,20)*(2^32))+l;local l=e(n,21,31);local e=((-1)^e(n,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 f=o;local function h(e)local o;if(not e)then e=f();if(e==0)then return'';end;end;o=c(a,l,l+e-1);l=l+e;local e={}for l=1,#o do e[l]=r(n(t(c(o,l,l)),34))end return b(e);end;local l=o;local function f(...)return{...},u('#',...)end local function b()local r={0,0,0,0,0,0,0,0,0};local c={};local l={};local a={r,nil,c,nil,l};local l=o()local t={0,0,0,0};for o=1,l do local e=d();local l;if(e==1)then l=(d()~=0);elseif(e==2)then l=E();elseif(e==3)then l=h();end;t[o]=l;end;a[2]=t a[4]=d();for l=1,o()do c[l-1]=b();end;for a=1,o()do local c=n(o(),92);local o=n(o(),255);local n=e(c,1,2);local l=e(o,1,11);local l={l,e(c,3,11),nil,nil,o};if(n==0)then l[3]=e(c,12,20);l[5]=e(c,21,29);elseif(n==1)then l[3]=e(o,12,33);elseif(n==2)then l[3]=e(o,12,32)-1048575;elseif(n==3)then l[3]=e(o,12,32)-1048575;l[5]=e(c,21,29);end;r[a]=l;end;return a;end;local function X(l,e,h)local o=l[1];local e=l[2];local n=l[3];local l=l[4];return function(...)local r=o;local t=e;local e=n;local n=l;local E=f local o=1;local d=-1;local f={};local a={...};local c=u('#',...)-1;local l={};local e={};for l=0,c do if(l>=n)then f[l-n]=a[l+1];else e[l]=a[l+1];end;end;local l=c-n+1 local l;local n;while true do l=r[o];n=l[1];if n<=7 then if n<=3 then if n<=1 then if n==0 then do return end;else e[l[2]]=(l[3]~=0);end;elseif n>2 then e[l[2]]();d=A;else e[l[2]]=(l[3]~=0);end;elseif n<=5 then if n==4 then local n=l[2];local a={};local o=0;local c=d;for l=n+1,c do o=o+1;a[o]=e[l];end;local c={e[n](i(a,1,c-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;d=l;else e[l[2]]=h[t[l[3]]];end;elseif n>6 then local o=l[2];local n=e[l[3]];e[o+1]=n;e[o]=n[t[l[5]]];else local n=l[2];local c={};local o=0;local l=n+l[3]-1;for l=n+1,l do o=o+1;c[o]=e[l];end;local c,l=E(e[n](i(c,1,l-n)));l=l+n-1;o=0;for l=n,l do o=o+1;e[l]=c[o];end;d=l;end;elseif n<=11 then if n<=9 then if n>8 then e[l[2]]=t[l[3]];else local n;local u,n;local a;local c;local f;local s;local n;e[l[2]]=h[t[l[3]]];o=o+1;l=r[o];e[l[2]]=h[t[l[3]]];o=o+1;l=r[o];n=l[2];s=e[l[3]];e[n+1]=s;e[n]=s[t[l[5]]];o=o+1;l=r[o];e[l[2]]=t[l[3]];o=o+1;l=r[o];e[l[2]]=(l[3]~=0);o=o+1;l=r[o];n=l[2];f={};c=0;a=n+l[3]-1;for l=n+1,a do c=c+1;f[c]=e[l];end;u,a=E(e[n](i(f,1,a-n)));a=a+n-1;c=0;for l=n,a do c=c+1;e[l]=u[c];end;d=a;o=o+1;l=r[o];n=l[2];f={};c=0;a=d;for l=n+1,a do c=c+1;f[c]=e[l];end;u={e[n](i(f,1,a-n))};a=n+l[5]-2;c=0;for l=n,a do c=c+1;e[l]=u[c];end;d=a;o=o+1;l=r[o];e[l[2]]();d=n;o=o+1;l=r[o];do return end;end;elseif n==10 then e[l[2]]=t[l[3]];else e[l[2]]();d=A;end;elseif n<=13 then if n==12 then local n=l[2];local a={};local o=0;local c=d;for l=n+1,c do o=o+1;a[o]=e[l];end;local c={e[n](i(a,1,c-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;d=l;else local o=l[2];local n=e[l[3]];e[o+1]=n;e[o]=n[t[l[5]]];end;elseif n<=14 then do return end;elseif n>15 then e[l[2]]=h[t[l[3]]];else local n=l[2];local c={};local o=0;local l=n+l[3]-1;for l=n+1,l do o=o+1;c[o]=e[l];end;local c,l=E(e[n](i(c,1,l-n)));l=l+n-1;o=0;for l=n,l do o=o+1;e[l]=c[o];end;d=l;end;o=o+1;end;end;end;return X(b(),{},Y())();