Snoopy Universal

return({i=function(a)local d,e,h,f,g f=string d,f=f.char,string e=f.gsub d={[0b10]=0b11,[0b11]=d}d[1]=d e={[0b10]=0b11,[0b11]=e}e[1]=e h=bit32 f,h=h.rshift,bit32 g=h.band f={[0b10]=0b11,[0b11]=f}f[1]=f g={[0b10]=0b11,[0b11]=g}g[1]=g h=a:j{e,d,f,g}return h end,c=function(...)return{[1]={...},[0b10]=select("#",...)}end,_=getfenv(),B=function(a,...)a.i,a.g=a:i(),a:g()return a:f()(...)end,A=function(a,b,c,d)a.x[d]=a.a(b,0x60da)-a.a(c,0x5dc)return a.x[d]end,g=function(a)local f,g,d,e g=string g,d=string,g.char e,g=g.byte,bit32 f=g.bxor d={[0b10]=0b11,[0b11]=d}d[1]=d e={[0b10]=0b11,[0b11]=e}e[1]=e f={[0b10]=0b11,[0b11]=f}f[1]=f g=a:h{d,f,e}return g end,z=function(a,b,c,d)a.x[d]=a.a(b,0xbe6b)/a.a(c,0xfaed)return a.x[d]end,k=function(a,c)return function(d)local o,m,k,g,h,l,i,j,f,b,p,n,e b=0x9c while true do if b<=0x7e then if b<=0x41 then if b<=0b111000 then k=0b1010101 n,j,k,o,m,p=d,e*k,"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz!#$%&()*+-;<=>?@^_`{|}~",f,d.sub,f m=m(n,o,p)o,n,k,l=true,1,k.find,k k=k(l,m,n,o)j,i=1,j+k b,e=0xb6-b,i-j else g,h,i,f=c[0b10][1][c[0b10][0b10]],e,0x18,c[1][1][c[1][0b10]]g=g(h,i)k,h,i,j=0b10000,c[0b11][1][c[0b11][0b10]],c[0b10][1][c[0b10][0b10]],e i=i(j,k)j=0xff h=h(i,j)i,l,j,k=c[0b11][1][c[0b11][0b10]],0b1000,c[0b10][1][c[0b10][0b10]],e j=j(k,l)k=0b11111111 i=i(j,k)j,l,k=c[0b11][1][c[0b11][0b10]],0b11111111,e j=a.c(j(k,l))f=a.c(f(g,h,i,a.d(j)))return a.d(f)end else f=f+h b=(h>0 and f>g or h<=0 and f<g or h~=h)and 0xbf-b or 0x1b90/b end else h,e,g,f=1,0,0b101,1 b=(g~=g or h>0 and f>g or(h<=0 or h~=h)and f<g)and 0b1000001 or 0x38 end end end end,j=function(a,c)return function(d)local i,h,e,j,k,f,b,g b=0xb6 repeat if b<0x6c then if b<=0b11001 then if b<=0b101 then b=i and 0x6c or 0x1e-b else b,i=0x6c,-1 end else h,f=0b101,"~"f,b,h,g=f.rep,0x8f,h-e,f f=f(g,h)d=d..f end elseif b<0xb6 then if b<=0x6c then g,f=f,f.sub f=a.c(f(g,h,i))return a.d(f)else g,i,f,h=d,a:k{c[0b10],c[0b11],c[0b100]},c[1][1][c[1][0b10]],"....."f=f(g,h,i)i,h=0,1 i=e>i b=i and 0b11111100 or 0b101 end elseif b>0b10110110 then k=0b101 j=k-e b,i,j=0x4ec/b,-j,1 i=i-j else f,g=#d,0b101 f,e=0,f%g b=e>f and 0b1001101 or 0x8f end until false end end,y=function(a,b,c,d)a.x[d]=a.g(b,c)return a.x[d]end,a=bit32 .bxor,f=function(a)return function(...)local b,d,e,f b=a.x[0x2117]or a:A(0x4c66,0x29c7,0x2117)while true do if b>0xa1 then b=0x127-b d(e)f=a._[a.x[-0x4ecb]or a:y(a.i"V^nES",a.i"1T_",-0x4ecb)]e=f[a.x[0x6602]or a:y(a.i"b04W%7P?R",a.i"BXh_",0x6602)]f,d=a.x[-0x3d8e]or a:y(a.i";WiTMk?0^>Xsjh(KXZa&2E&p6%dx9Cz+-XbTUOL2`A*k$0ruOLXh(gob_aMph-?tV(5>kDxPO~bVu53E;zZkJ",a.i"vQ=P$;hX?73Eu@hR}$<6W2e90jMU#4v<no(H8Z0ImLL",-0x3d8e),e[a.x[-0x2d16]or a:y(a.i"@ld{nIqg%toiNV",a.i"y+7ULRR",-0x2d16)]e,d=d,d.Kick elseif b<=0x85 then d(e,f)return else b,e,d=a.x[0x5727]or a:z(0x162e9,0xf81c,0x5727),a.x[-0x7197]or a:y(a.i"auoY}ers88J&Hi$3zdFO=xibj00j@Ba>FU2",a.i"8eoqL4N-PLS>rQ-Waj",-0x7197),a._[a.x[-0x7231]or a:y(a.i"Zg{!}Rl{w6p#@9M",a.i"9UabOIjR",-0x7231)]end end end end,x={},d=(function()local function m(i,j,k)if j>k then return end return i[j],m(i,j+1,k)end return function(o)return m(o[1],1,o[0b10])end end)(),h=function(a,c)return function(d,e)local n,o,b,p,i,l,g,j,f,k,h,m b=0b11011110 while true do if b<=0xb7 then if b>=0b10001100 then if b<=0xa2 then if b>0x96 then b=g<h and 0x15b-b or 0xfd elseif b<=0x8c then l=l(m,n)b,m,p,n=0x27,c[0b11][1][c[0b11][0b10]],#e,e p,o=1,g%p o=o+p else b=i<=0 and 0x164-b or 0x146-b end elseif b>0xb0 then g=g+i b=i>0 and 0xe0 or 0b10010110 else b=i~=i and 0b10111001 or 0xfd end elseif b>=0b100111 then if b>0b100111 then j=j(a.d(k))b,f=0xb7,f..j else b,m=b+-0b1111,a.c(m(n,o))end elseif b<=0b10001 then b=i<=0 and 0b10110011-b or b+0b11101100 else b,k=0b1111111,a.c(k(l,a.d(m)))end elseif b>=0xde then if b>=0b11100110 then if b>0b11100110 then k,b,l,n,j,m=c[0b10][1][c[0b10][0b10]],0b10001100,c[0b11][1][c[0b11][0b10]],1,c[1][1][c[1][0b10]],d n=g+n else b=g>h and b+-0x2d or 0x1c0-b end elseif b>0b11011110 then b=g>h and 0b10111001 or b+-0x4a else j,f,g,k=#d,"",0,1 i,h=1,j-k b=h~=h and 0b10111001 or 0b11000110 end elseif b>=0xce then if b<=0b11001110 then b=g<h and 0b10111001 or 0b10110000 else b=i~=i and 0b10100010 or 0x11 end elseif b>0b10111001 then b=i>0 and 0xe6 or 0xda else return f end end end end}):B(...)