beautiful obfuscation

local a=string.byte;local b=string.char;local c=string.sub;local d=table.concat;local e=table.insert;local f=math.ldexp;local g=getfenv or function()return _ENV end;local h=setmetatable;local i=select;local j=unpack or table.unpack;local k=tonumber;local function l(m)local n,o,p="","",{}local q=(#({6827,1859,5698,8184,8980,4770,7636,76,9579,6624,5637,893,3121})+243)local r={}for s=0,q-1 do r[s]=b(s)end;local t=1;local function u()local v=k(c(m,t,t),(#{5629,800,7990,133,9988,5446,3357,6122,5528,2923,4423,2495,4683,8802,6832,5599,7257,8736}+929-520-290-101))t=t+1;local w=k(c(m,t,t+v-1),(#({4120,5897,3495,239,46,4719,9784,4954,2376,3761,3892,9433,9146,4825,2294})+906-931+46))t=t+v;return w end;n=b(u())p[1]=n;while t<#m do local x=u()if r[x]then o=r[x]else o=n..c(n,1,1)end;r[q]=n..c(o,1,1)p[#p+1],n,q=o,o,q+1 end;return table.concat(p)end;local y=l('22422627522522327522621Q21O2131W21M22521X27921B1Y1Y21B21223221B21121821B21O27927522227922K27U22727X28028027427922527927428022628422628922627W27528D28H27928D')local z=bit or bit32 or require('bit')local C=z.bxor;local function D(E,F,G)if G then local H=E/2^(F-1)%2^(G-1-(F-1)+1)return H-H%1 else local I=2^(F-1)return E%(I+I)>=I and 1 or 0 end end;local J=1;local function K()local L,M,N,O=a(y,J,J+3)L=C(L,(#({1470,143,7122,1403,7872,4580,3648,9553,6590,7163,8201,1506,2662})+331-266))M=C(M,(#({2333,8889,5626,1370,8500,7235,7617,7771,4763,8625,7931,3139,6216})+408-343))N=C(N,(#({118,9388,9645,3113,1447,3982,6060,2546,555,864,3617,5730,6322,7620})+122-8-142+92))O=C(O,(#{8124,4606,1611,1394,7125,7415,529,301,2039,9608,3529,2518,3865,5828,883,7871,9936,504}+310-150-100))J=J+4;return O*(#({9461,8669,8048,7384,356,3797,8784,8835,6315,167})+16777206)+N*(#({6522,8629,1409,3718,4717,2770,6321,2612,4793,9615,6703,9999,4020,87,8420,7817,6134})+65519)+M*(#({4776,8655,124,9477,4509,3899,3264,4805,1330,2878,3872})+245)+L end;local function P()local Q=C(a(y,J,J),(#({5961,9793,9161,8145,6689,9808,5921,8893,7481,851,3198,8439,6279,36,2427,7584,1703,621,297})+244-426+241))J=J+1;return Q end;local function R()local L,M=a(y,J,J+2)L=C(L,(#{7243,7437,5497,8707,617,8522,4089,9492,5186,7448,7636,4043,8638,4515,7512,4124,2265,2023,5598}+546-191-296))M=C(M,(#({7220,5234,3395,6876,8992,7603,9134,868,6926,1328,3858})+67))J=J+2;return M*(#{4593,5131,8927,4813,4910,8055,6198,1729,9266,2107,4344,8280,1203,1702}+91+399-232-16)+L end;local function S()local T=K()local U=K()local V=1;local W=D(U,1,(#({8078,7944,7237,6039,9796,9078,3867,359,4312,9912,7563})+916-907))*2^(#({2035,9153,8778,6695,2205,4298,4258,2954,5017,5307,9364,1857,9749,2968,2219,4603,5899,2027,7149})+320-841+534)+T;local X=D(U,(#{4739,9876,9106,8561,5476,51,1812,1988,4611,4988,4609,2543,4023,2375,6703}+436-841+828-417),(#{8252,8558,5889,7710,590,6438,3584,6805,7400,9922,7455,8653,2875,9258}+17))local Y=(-1)^D(U,(#{4425,6653,8281,4153,7884,9176,2213,9727,8310,9800,5875,8463}+802-782))if X==0 then if W==0 then return Y*0 else X=1;V=0 end elseif X==(#({5523,6332,5442,6384,6254,8821,4127,9294,1247,8864,7783,9727})+548+52+1435)then return W==0 and Y*1/0 or Y*0/0 end;return f(Y,X-(#({1737,9773,4969,3351,6889,6638,1328,2662,2237,609,9591,280})+1011))*(V+W/2^(#({145,8052,4514,116,8618,5822,3893,1724,718,172,7991,9163,716,4905,2443})+37))end;local Z=K;local function _(a0)local a1;if not a0 then a0=Z()if a0==0 then return''end end;a1=c(y,J,J+a0-1)J=J+a0;local a2={}for a3=1,#a1 do a2[a3]=b(C(a(c(a1,a3,a3)),(#{9028,6000,9702,2559,1260,9007,1480,2613,7518,3836,2595,8207,7585,9973,7059,7919}+438-129-234-547+534)))end;return d(a2)end;local a4=K;local function a5(...)return{...},i('#',...)end;local function a6()local a7={}local a8={}local a9={}local aa={a7,a8,nil,a9}local ab=K()local ac={}for a3=1,ab do local ad=P()local ae;if ad==2 then ae=P()~=0 elseif ad==1 then ae=S()elseif ad==3 then ae=_()end;ac[a3]=ae end;aa[3]=P()for a3=1,K()do a8[a3-1]=a6()end;for a3=1,K()do local af=P()if D(af,1,1)==0 then local ad=D(af,2,3)local ag=D(af,4,6)local ah={R(),R(),nil,nil}if ad==0 then ah[3]=R()ah[4]=R()elseif ad==1 then ah[3]=K()elseif ad==2 then ah[3]=K()-2^(#({6605,3185,3429,2643,423,5780,6616,3861,2105,87,204,474,6565,4983,5346,3296,8838,326,9782})-279+744-694+509-283)elseif ad==3 then ah[3]=K()-2^(#({123,1771,6957,948,4535,3977,9247,8837,922,1369,4864,6531,4896,2394})+145-143)ah[4]=R()end;if D(ag,1,1)==1 then ah[2]=ac[ah[2]]end;if D(ag,2,2)==1 then ah[3]=ac[ah[3]]end;if D(ag,3,3)==1 then ah[4]=ac[ah[4]]end;a7[a3]=ah end end;for a3=1,K()do a9[a3]=K()end;return aa end;local ai=pcall;local function aj(aa,ak,al)local am=aa[1]local an=aa[2]local ao=aa[3]return function(...)local ap=1;local aq=-1;local ar={...}local as=i('#',...)-1;local function at()local am=am;local Const=Const;local an=an;local ao=ao;local a5=a5;local au={}local av={}local aw={}for a3=0,as do if a3>=ao then au[a3-ao]=ar[a3+1]else aw[a3]=ar[a3+1]end end;local ax=as-ao+1;local ah;local ay;while true do ah=am[ap]ay=ah[1]if ay<=1 then if ay>0 then aw[ah[2]]=ah[3]else aw[ah[2]]=al[ah[3]]end elseif ay>2 then local A=ah[2]aw[A](aw[A+1])else do return end end;ap=ap+1 end end;A,B=a5(ai(at))if not A[1]then local az=aa[7][ap]or'?'error('ERROR IN IRONBREW SCRIPT [LINE '..az..']:'..A[2])else return j(A,2,B)end end end;return aj(a6(),{},g())()