Krypton

local a=tonumber;local b=string.byte;local c=string.char;local d=string.sub;local e=string.gsub;local f=string.rep;local g=table.concat;local h=table.insert;local i=math.ldexp;local j=getfenv or function()return _ENV end;local k=setmetatable;local l=pcall;local m=select;local n=unpack or table.unpack;local o=tonumber;local function p(q,r,...)local s=1;local t;q=e(d(q,5),"..",function(u)if b(u,2)==79 then t=a(d(u,1,1))return""else local v=c(a(u,16))if t then local w=f(v,t)t=nil;return w else return v end end end)local function x(y,z,A)if A then local B=y/2^(z-1)%2^(A-1-(z-1)+1)return B-B%1 else local C=2^(z-1)return y%(C+C)>=C and 1 or 0 end end;local function D()local v=b(q,s,s)s=s+1;return v end;local function E()local v,w=b(q,s,s+2)s=s+2;return w*256+v end;local function F()local v,w,G,H=b(q,s,s+3)s=s+4;return H*16777216+G*65536+w*256+v end;local function I()local J=F()local K=F()local L=1;local M=x(K,1,20)*2^32+J;local N=x(K,21,31)local O=x(K,32)==1 and-1 or 1;if N==0 then if M==0 then return O*0 else N=1;L=0 end elseif N==2047 then return M==0 and O*1/0 or O*NaN end;return i(O,N-1023)*(L+M/2^52)end;local function P(Q)local R;if not Q then Q=F()if Q==0 then return""end end;R=d(q,s,s+Q-1)s=s+Q;local S={}for T=1,#R do S[T]=c(b(d(R,T,T)))end;return g(S)end;local U=F;local function V(...)return{...},m("#",...)end;local function W()local X={}local Y={}local Z={}local _={X,Y,nil,Z}local a0=F()local a1={}for T=1,a0 do local a2=D()local a3;if a2==1 then a3=D()~=0 elseif a2==2 then a3=I()elseif a2==3 then a3=P()end;a1[T]=a3 end;_[3]=D()for T=1,F()do local a4=D()if x(a4,1,1)==0 then local a2=x(a4,2,3)local a5=x(a4,4,6)local a6={E(),E(),nil,nil}if a2==0 then a6[3]=E()a6[4]=E()elseif a2==1 then a6[3]=F()elseif a2==2 then a6[3]=F()-2^16 elseif a2==3 then a6[3]=F()-2^16;a6[4]=E()end;if x(a5,1,1)==1 then a6[2]=a1[a6[2]]end;if x(a5,2,2)==1 then a6[3]=a1[a6[3]]end;if x(a5,3,3)==1 then a6[4]=a1[a6[4]]end;X[T]=a6 end end;for T=1,F()do Y[T-1]=W()end;return _ end;local function a7(_,a8,a9)local aa=_[1]local ab=_[2]local ac=_[3]return function(...)local aa=aa;local ab=ab;local ac=ac;local V=V;local ad=1;local ae=-1;local af={}local ag={...}local ah=m("#",...)-1;local ai={}local aj={}for T=0,ah do if T>=ac then af[T-ac]=ag[T+1]else aj[T]=ag[T+1]end end;local ak=ah-ac+1;local a6;local al;while true do a6=aa[ad]al=a6[1]if al<=14 then if al<=6 then if al<=2 then if al<=0 then aj[a6[2]]=aj[a6[3]]elseif al==1 then do return end else local am=a6[2]local an=aj[am]local ao=aj[am+2]if ao>0 then if an>aj[am+1]then ad=a6[3]else aj[am+3]=an end elseif an<aj[am+1]then ad=a6[3]else aj[am+3]=an end end elseif al<=4 then if al>3 then aj[a6[2]]=#aj[a6[3]]else local am=a6[2]local ap=aj[am]local aq=a6[3]for T=1,aq do ap[T]=aj[am+T]end end elseif al==5 then local aq=a6[3]local ar=aj[aq]for T=aq+1,a6[4]do ar=ar..aj[T]end;aj[a6[2]]=ar else local am=a6[2]local ap=aj[am]local aq=a6[3]for T=1,aq do ap[T]=aj[am+T]end end elseif al<=10 then if al<=8 then if al>7 then local am=a6[2]local ap=aj[am]for T=am+1,a6[3]do h(ap,aj[T])end else aj[a6[2]]=a6[3]end elseif al>9 then local aq=a6[3]local ar=aj[aq]for T=aq+1,a6[4]do ar=ar..aj[T]end;aj[a6[2]]=ar else local am=a6[2]aj[am]=aj[am](aj[am+1])end elseif al<=12 then if al>11 then aj[a6[2]]=aj[a6[3]][aj[a6[4]]]else aj[a6[2]]=a9[a6[3]]end elseif al==13 then aj[a6[2]]=#aj[a6[3]]else aj[a6[2]]={}end elseif al<=21 then if al<=17 then if al<=15 then local am=a6[2]local ap=aj[am]for T=am+1,a6[3]do h(ap,aj[T])end elseif al==16 then aj[a6[2]]=a6[3]else aj[a6[2]]=aj[a6[3]][aj[a6[4]]]end elseif al<=19 then if al>18 then aj[a6[2]]()else local am=a6[2]local ao=aj[am+2]local an=aj[am]+ao;aj[am]=an;if ao>0 then if an<=aj[am+1]then ad=a6[3]aj[am+3]=an end elseif an>=aj[am+1]then ad=a6[3]aj[am+3]=an end end elseif al>20 then aj[a6[2]]=aj[a6[3]][a6[4]]else aj[a6[2]]=a9[a6[3]]end elseif al<=25 then if al<=23 then if al==22 then local am=a6[2]local an=aj[am]local ao=aj[am+2]if ao>0 then if an>aj[am+1]then ad=a6[3]else aj[am+3]=an end elseif an<aj[am+1]then ad=a6[3]else aj[am+3]=an end else aj[a6[2]]=aj[a6[3]][a6[4]]end elseif al>24 then aj[a6[2]]={}else do return end end elseif al<=27 then if al==26 then local am=a6[2]aj[am]=aj[am](aj[am+1])else aj[a6[2]]=aj[a6[3]]end elseif al>28 then local am=a6[2]local ao=aj[am+2]local an=aj[am]+ao;aj[am]=an;if ao>0 then if an<=aj[am+1]then ad=a6[3]aj[am+3]=an end elseif an>=aj[am+1]then ad=a6[3]aj[am+3]=an end else aj[a6[2]]()end;ad=ad+1 end end end;return a7(W(),{},r)(...)end;return p("LOL!243O00026O005B40025O00C05B40025O00405840026O005940025O00C05C40026O005D40025O00805C40025O00405A40025O00805B40025O00C05940026O004440025O00405B40025O00405940026O004D40026O005240026O005C40025O00C05140025O00804340026O005A40025O00804740025O00405D40025O00805840026O004740025O00C05840025O00C05240025O00405E40025O00804640025O00C05D40025O00C05440026O005340025O00804440034O00026O00F03F03063O00737472696E6703043O0063686172030A3O006C6F6164737472696E6700754O000E3O00253O001207000100013O001207000200023O001207000300033O001207000400043O001207000500053O001207000600063O001207000700073O001207000800083O001207000900093O001207000A000A3O001207000B000B3O001207000C000A3O001207000D00033O001207000E000C3O001207000F000D3O0012070010000E3O0012070011000F3O001207001200063O001207001300063O001207001400103O001207001500113O0012070016000D3O001207001700063O0012070018000B3O001207001900123O001207001A00133O001207001B00063O001207001C00063O001207001D00103O001207001E00053O001207001F000E3O001207002000143O001207002100143O0012070022000A3O001207002300083O001207002400063O001207002500133O001207002600153O001207002700163O001207002800173O001207002900183O001207002A00023O001207002B000C3O001207002C00143O001207002D00193O001207002E00073O001207002F001A3O001207003000103O001207003100063O001207003200024O00063O00320001001207000100093O0012070002001B3O001207000300033O001207000400083O001207000500143O001207000600193O001207000700073O0012070008001A3O001207000900103O001207000A00063O001207000B00023O001207000C00093O001207000D00143O001207000E00073O001207000F00033O0012070010001C3O001207001100143O0012070012000C3O001207001300033O001207001400083O001207001500093O001207001600143O0012070017001D3O001207001800023O001207001900153O001207001A00073O001207001B00183O001207001C000D3O001207001D001E3O001207001E00023O001207001F00033O001207002000043O001207002100053O001207002200063O001207002300073O001207002400083O001207002500093O0012070026000A3O001207002700173O001207002800013O001207002900153O001207002A00033O001207002B00123O001207002C001F3O001207002D001F3O001207002E000B3O001207002F001F4O00083O002F0002001207000100203O001207000200214O000D00035O001207000400213O0004160002007000014O000600013O00120B000700223O0020170007000700232O000C00083O00052O00090007000200022O000A00010006000700041200020069000100120B000200246O000300014O00090002000200022O00130002000100012O00183O00017O00",j(),...)