DonutBakery.lua

return(function(h,a,a)local j=string.char;local e=string.sub;local q=table.concat;local o=math.ldexp;local p=getfenv or function()return _ENV end;local m=select;local k=unpack or table.unpack;local l=tonumber;local function n(h)local b,c,d="","",{}local f=256;local g={}for a=0,f-1 do g[a]=j(a)end;local a=1;local function i()local b=l(e(h,a,a),36)a=a+1;local c=l(e(h,a,a+b-1),36)a=a+b;return c end;b=j(i())d[1]=b;while a<#h do local a=i()if g[a]then c=g[a]else c=b..e(b,1,1)end;g[f]=b..e(c,1,1)d[#d+1],b,f=c,c,f+1 end;return table.concat(d)end;local i=n('25U26227526027527826221626D26226627825325724U24Y27D27824Y24V25925B26225V27824T25124O24X24P24Q25725527P25K27824E24Z25725325125025A23T24U27U25B24F24S25B25024U24P26226527824B25A25A24925724P27J25S27824C24Z24O25B23T25B24O28G24O26226427824V25027Y25524X26225Z27926727926226326228229J26227727526Y27529K29K26126225M27929T29L29S27K29Q2A129K29H29R29N29K2972A729Z28M29M29V27429I27E29I28M29V2AI27528V29K2A129O2782AP29I');local a=(bit or bit32);local d=a and a.bxor or function(a,c)local b,d,e=1,0,10 while a>0 and c>0 do local e,f=a%2,c%2 if e~=f then d=d+b end a,c,b=(a-e)/2,(c-f)/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 c,e,f,b=h(i,a,a+3);c=d(c,218)e=d(e,218)f=d(f,218)b=d(b,218)a=a+4;return(b*16777216)+(f*65536)+(e*256)+c;end;local function g()local b=d(h(i,a,a),218);a=a+1;return b;end;local function f()local c,b=h(i,a,a+2);c=d(c,218)b=d(b,218)a=a+2;return(b*256)+c;end;local function n()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 l=b;local function o(b)local c;if(not b)then b=l();if(b==0)then return'';end;end;c=e(i,a,a+b-1);a=a+b;local b={}for a=1,#c do b[a]=j(d(h(e(c,a,a)),218))end return q(b);end;local a=b;local function q(...)return{...},m('#',...)end local function l()local j={};local i={};local a={};local h={[#{"1 + 1 = 111";"1 + 1 = 111";}]=i,[#{{951;543;405;832};"1 + 1 = 111";{906;21;201;547};}]=nil,[#{"1 + 1 = 111";{692;802;315;794};"1 + 1 = 111";"1 + 1 = 111";}]=a,[#{"1 + 1 = 111";}]=j,};local a=b()local d={}for c=1,a do local b=g();local a;if(b==3)then a=(g()~=0);elseif(b==2)then a=n();elseif(b==0)then a=o();end;d[c]=a;end;h[3]=g();for h=1,b()do local a=g();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[h]=a;end end;for a=1,b()do i[a-1]=l();end;return h;end;local function n(a,b,g)a=(a==true and l())or a;return(function(...)local e=a[1];local d=a[3];local a=a[2];local i=q local c=1;local f=-1;local l={};local j={...};local h=m('#',...)-1;local a={};local b={};for a=0,h do if(a>=d)then l[a-d]=j[a+1];else b[a]=j[a+#{"1 + 1 = 111";}];end;end;local a=h-d+1 local a;local d;while true do a=e[c];d=a[1];if d<=8 then if d<=3 then if d<=1 then if d>0 then b[a[2]]=g[a[3]];else b[a[2]]=b[a[3]];end;elseif d>2 then b[a[2]]=b[a[3]];else do return end;end;elseif d<=5 then if d==4 then b[a[2]]=b[a[3]][a[4]];else local d;local f;b[a[2]]={};c=c+1;a=e[c];b[a[2]]=g[a[3]];c=c+1;a=e[c];b[a[2]]=b[a[3]][a[4]];c=c+1;a=e[c];b[a[2]][a[3]]=b[a[4]];c=c+1;a=e[c];b[a[2]]=g[a[3]];c=c+1;a=e[c];b[a[2]]=b[a[3]][a[4]];c=c+1;a=e[c];b[a[2]]=b[a[3]][a[4]];c=c+1;a=e[c];f=a[2];d=b[a[3]];b[f+1]=d;b[f]=d[a[4]];c=c+1;a=e[c];b[a[2]]=g[a[3]];c=c+1;a=e[c];b[a[2]]=b[a[3]];end;elseif d<=6 then b[a[2]]=g[a[3]];elseif d==7 then local a=a[2]local d,c=i(b[a](b[a+1]))f=c+a-1 local c=0;for a=a,f do c=c+1;b[a]=d[c];end;else b[a[2]][a[3]]=b[a[4]];end;elseif d<=13 then if d<=10 then if d==9 then local d=a[2];local c=b[a[3]];b[d+1]=c;b[d]=c[a[4]];else local a=a[2]b[a](k(b,a+1,f))end;elseif d<=11 then b[a[2]]={};elseif d>12 then b[a[2]]=b[a[3]][a[4]];else local c=a[2];local d=b[a[3]];b[c+1]=d;b[c]=d[a[4]];end;elseif d<=15 then if d==14 then b[a[2]]={};else b[a[2]][a[3]]=b[a[4]];end;elseif d<=16 then do return end;elseif d>17 then local a=a[2]b[a](k(b,a+1,f))else local a=a[2]local d,c=i(b[a](b[a+1]))f=c+a-1 local c=0;for a=a,f do c=c+1;b[a]=d[c];end;end;c=c+1;end;end);end;return n(true,{},p())();end)(string.byte,table.insert,setmetatable);