OPL

--[[
IronBrew:tm: obfuscation; Version 2.7.2
]]
local i=string.byte;local k=string.char;local e=string.sub;local m=table.concat;local a=table.insert;local o=math.ldexp;local p=getfenv or function()return _ENV end;local a=setmetatable;local l=select;local g=unpack or table.unpack;local j=tonumber;local function n(h)local b,c,f="","",{}local g=256;local d={}for a=0,g-1 do d[a]=k(a)end;local a=1;local function i()local b=j(e(h,a,a),36)a=a+1;local c=j(e(h,a,a+b-1),36)a=a+b;return c end;b=k(i())f[1]=b;while a<#h do local a=i()if d[a]then c=d[a]else c=b..e(b,1,1)end;d[g]=b..e(c,1,1)f[#f+1],b,g=c,c,g+1 end;return table.concat(f)end;local j=n('25P25L27525N25F27525L24L24M24O24T25625925724G24N24U25N27427524U24O24K24S25N25Q27923L25925925523Y24S25925N26H27924H27W25526R26E26E24O24G27H24Z24W26C24T24S25B26F24X24W24Z26E23L25824R26E23P27C28H25725L25C27926325H27925K28Z27529325N27928325L29329325M25L26327529D27M27925L27429329J29A29K29N29N29729N29B29Q29M29N');local a=bit32 or require('bit');local d=a and a.bxor or function(a,c)local b,d=1,0 while a>0 and c>0 do local f,e=a%2,c%2 if f~=e then d=d+b end a,c,b=(a-f)/2,(c-e)/2,b*2 end if a<c then a=c end while a>0 do local c=a%2 if c>0 then d=d+b end a,b=(a-c)/2,b*2 end return d end local function c(b,a,c)if c then local a=(b/2^(a-1))%2^((c-1)-(a-1)+1);return a-a%1;else local a=2^(a-1);return(b%(a+a)>=a)and 1 or 0;end;end;local a=1;local function b()local b,f,e,c=i(j,a,a+3);b=d(b,201)f=d(f,201)e=d(e,201)c=d(c,201)a=a+4;return(c*16777216)+(e*65536)+(f*256)+b;end;local function h()local b=d(i(j,a,a),201);a=a+1;return b;end;local function f()local c,b=i(j,a,a+2);c=d(c,201)b=d(b,201)a=a+2;return(b*256)+c;end;local function q()local d=b();local a=b();local e=1;local d=(c(a,1,20)*(2^32))+d;local b=c(a,21,31);local a=((-1)^c(a,32));if(b==0)then if(d==0)then return a*0;else b=1;e=0;end;elseif(b==2047)then return(d==0)and(a*(1/0))or(a*(0/0));end;return o(a,b-1023)*(e+(d/(2^52)));end;local n=b;local function o(b)local c;if(not b)then b=n();if(b==0)then return'';end;end;c=e(j,a,a+b-1);a=a+b;local b={}for a=1,#c do b[a]=k(d(i(e(c,a,a)),201))end return m(b);end;local a=b;local function m(...)return{...},l('#',...)end local function n()local j={};local k={};local a={};local i={j,k,nil,a};local a=b()local d={}for c=1,a do local b=h();local a;if(b==0)then a=(h()~=0);elseif(b==1)then a=q();elseif(b==2)then a=o();end;d[c]=a;end;i[3]=h();for i=1,b()do local a=h();if(c(a,1,1)==0)then local e=c(a,2,3);local g=c(a,4,6);local a={f(),f(),nil,nil};if(e==0)then a[3]=f();a[4]=f();elseif(e==1)then a[3]=b();elseif(e==2)then a[3]=b()-(2^16)elseif(e==3)then a[3]=b()-(2^16)a[4]=f();end;if(c(g,1,1)==1)then a[2]=d[a[2]]end if(c(g,2,2)==1)then a[3]=d[a[3]]end if(c(g,3,3)==1)then a[4]=d[a[4]]end j[i]=a;end end;for a=1,b()do k[a-1]=n();end;return i;end;local function o(a,b,h)local b=a[1];local c=a[2];local a=a[3];return function(...)local f=b;local b=c;local d=a;local k=m local c=1;local e=-1;local m={};local j={...};local i=l('#',...)-1;local a={};local b={};for a=0,i do if(a>=d)then m[a-d]=j[a+1];else b[a]=j[a+1];end;end;local a=i-d+1 local a;local d;while true do a=f[c];d=a[1];if d<=7 then if d<=3 then if d<=1 then if d==0 then do return end;else local a=a[2]b[a]=b[a](g(b,a+1,e))end;elseif d==2 then b[a[2]]();else b[a[2]]=a[3];end;elseif d<=5 then if d==4 then local c=a[2];local d=b[a[3]];b[c+1]=d;b[c]=d[a[4]];else local c=a[2]local d,a=k(b[c](g(b,c+1,a[3])))e=a+c-1 local a=0;for c=c,e do a=a+1;b[c]=d[a];end;end;elseif d>6 then b[a[2]]();else b[a[2]]=a[3];end;elseif d<=11 then if d<=9 then if d>8 then b[a[2]]=h[a[3]];else local a=a[2]b[a]=b[a](g(b,a+1,e))end;elseif d==10 then b[a[2]]=h[a[3]];else b[a[2]]=(a[3]~=0);end;elseif d<=13 then if d>12 then local c=a[2]local d,a=k(b[c](g(b,c+1,a[3])))e=a+c-1 local a=0;for c=c,e do a=a+1;b[c]=d[a];end;else local i;local m,l;local j;local d;b[a[2]]=h[a[3]];c=c+1;a=f[c];b[a[2]]=h[a[3]];c=c+1;a=f[c];d=a[2];j=b[a[3]];b[d+1]=j;b[d]=j[a[4]];c=c+1;a=f[c];b[a[2]]=a[3];c=c+1;a=f[c];b[a[2]]=(a[3]~=0);c=c+1;a=f[c];d=a[2]m,l=k(b[d](g(b,d+1,a[3])))e=l+d-1 i=0;for a=d,e do i=i+1;b[a]=m[i];end;c=c+1;a=f[c];d=a[2]b[d]=b[d](g(b,d+1,e))c=c+1;a=f[c];b[a[2]]();c=c+1;a=f[c];do return end;end;elseif d<=14 then b[a[2]]=(a[3]~=0);elseif d>15 then local d=a[2];local c=b[a[3]];b[d+1]=c;b[d]=c[a[4]];else do return end;end;c=c+1;end;end;end;return o(n(),{},p())();