for star war

local t=string.byte;local f=string.char;local c=string.sub;local u=table.concat;local B=math.ldexp;local S=getfenv or function()return _ENV end;local l=setmetatable;local i=select;local r=unpack;local h=tonumber;local function s(t)local e,o,n="","",{}local d=256;local a={}for l=0,d-1 do a[l]=f(l)end;local l=1;local function r()local e=h(c(t,l,l),36)l=l+1;local o=h(c(t,l,l+e-1),36)l=l+e;return o end;e=f(r())n[1]=e;while l<#t do local l=r()if a[l]then o=a[l]else o=e..c(e,1,1)end;a[d]=e..c(o,1,1)n[#n+1],e,d=o,o,d+1 end;return table.concat(n)end;local a=s('24H24S27524V24P27524S26425P25H26626724V24R27925N25L26026725L25E26224V24O27I25P25D25L27G27927025C25P25X25L27E24V24N27926825F25R25P25C27Y28028224V24L27X27Z28126626J26125H28427925M25F26625R25L27025F26328227F28527528728925C27325R26625H26426027Q27926025X26427V27827526025P25Q25C27V27R27525E25L25W29A29024S26625L26528M29W27U25E26024T2792A52A624Z27924G24K22K22B1X24K27524K2582AC1Z25827524O2502AJ25027524P25826K24S2AK2AR2582702AV2AL24S2AS25O2B02AX2642B52B22582182B824L2B12AW24S2742AU1Z27924J2182AC2142BB21825026C2AC21C26C27525523W2752132BY24S2512582BY21H2B125225O1C24S21E2B421824J26S2BN26S24S2BQ2CG22B21C2CI24S2BX2BZ2C12592442752122CU24S24J23O2BN23O2CJ23S2BS2CM2BV24S23X2D72132D723T2C424S2C627523U24K2CA21E2AF2CE24S2BN27521823P25O23G24S2162B42C224S2BY21I2BK1K22B22B2142E325V2742E02BK25O2E42142EC2E82AF24S21N2EH24S');local n=bit and bit.bxor or function(l,o)local e,n=1,0 while l>0 and o>0 do local c,a=l%2,o%2 if c~=a then n=n+e end l,o,e=(l-c)/2,(o-a)/2,e*2 end if l<o then l=o end while l>0 do local o=l%2 if o>0 then n=n+e end l,e=(l-o)/2,e*2 end return n end local function e(e,l,o)if o then local l=(e/2^(l-1))%2^((o-1)-(l-1)+1);return l-l%1;else local l=2^(l-1);return(e%(l+l)>=l)and 1 or 0;end;end;local l=1;local function o()local a,o,e,c=t(a,l,l+3);a=n(a,172)o=n(o,172)e=n(e,172)c=n(c,172)l=l+4;return(c*16777216)+(e*65536)+(o*256)+a;end;local function d()local e=n(t(a,l,l),172);l=l+1;return e;end;local function C()local l=o();local n=o();local c=1;local o=(e(n,1,20)*(2^32))+l;local l=e(n,21,31);local e=((-1)^e(n,32));if(l==0)then if(o==0)then return e*0;else l=1;c=0;end;elseif(l==2047)then return(o==0)and(e*(1/0))or(e*(0/0));end;return B(e,l-1023)*(c+(o/(2^52)));end;local s=o;local function h(e)local o;if(not e)then e=s();if(e==0)then return'';end;end;o=c(a,l,l+e-1);l=l+e;local e={}for l=1,#o do e[l]=f(n(t(c(o,l,l)),172))end return u(e);end;local l=o;local function s(...)return{...},i('#',...)end local function B()local t={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};local f={};local l={};local a={t,nil,f,nil,l};local l=o()local c={0,0,0,0,0,0,0,0,0,0,0,0,0};for o=1,l do local e=d();local l;if(e==0)then l=(d()~=0);elseif(e==1)then l=C();elseif(e==3)then l=h();end;c[o]=l;end;a[2]=c for l=1,o()do f[l-1]=B();end;for a=1,o()do local c=n(o(),13);local o=n(o(),143);local n=e(c,1,2);local l=e(o,1,11);local l={l,e(c,3,11),nil,nil,o};if(n==0)then l[3]=e(c,12,20);l[5]=e(c,21,29);elseif(n==1)then l[3]=e(o,12,33);elseif(n==2)then l[3]=e(o,12,32)-1048575;elseif(n==3)then l[3]=e(o,12,32)-1048575;l[5]=e(c,21,29);end;t[a]=l;end;a[4]=d();return a;end;local function C(l,e,h)local e=l[1];local n=l[2];local o=l[3];local l=l[4];return function(...)local f=e;local c=n;local e=o;local n=l;local u=s local o=1;local t=-1;local s={};local a={...};local d=i('#',...)-1;local l={};local e={};for l=0,d do if(l>=n)then s[l-n]=a[l+1];else e[l]=a[l+1];end;end;local l=d-n+1 local l;local n;while true do l=f[o];n=l[1];if n<=11 then if n<=5 then if n<=2 then if n<=0 then e[l[2]]=h[c[l[3]]];elseif n==1 then e[l[2]]=e[l[3]][c[l[5]]];else local n;local s,n;local a;local n;local i;local d;e[l[2]]=h[c[l[3]]];o=o+1;l=f[o];e[l[2]]=h[c[l[3]]];o=o+1;l=f[o];e[l[2]]=h[c[l[3]]];o=o+1;l=f[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=f[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=f[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=f[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=f[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=f[o];d=l[2];i={};n=0;a=d+l[3]-1;for l=d+1,a do n=n+1;i[n]=e[l];end;s,a=u(e[d](r(i,1,a-d)));a=a+d-1;n=0;for l=d,a do n=n+1;e[l]=s[n];end;t=a;o=o+1;l=f[o];d=l[2];i={};n=0;a=t;for l=d+1,a do n=n+1;i[n]=e[l];end;s={e[d](r(i,1,a-d))};a=d+l[5]-2;n=0;for l=d,a do n=n+1;e[l]=s[n];end;t=a;end;elseif n<=3 then for l=l[2],l[3]do e[l]=nil;end;elseif n>4 then for l=l[2],l[3]do e[l]=nil;end;else e[l[2]]=e[l[3]];end;elseif n<=8 then if n<=6 then local n=l[2];local c={};local o=0;local a=t;for l=n+1,a do o=o+1;c[o]=e[l];end;local c={e[n](r(c,1,a-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;t=l;elseif n>7 then e[l[2]]=e[l[3]];else e[l[2]][c[l[3]]]=c[l[5]];end;elseif n<=9 then e[l[2]][c[l[3]]]=c[l[5]];elseif n>10 then o=o+l[3];else do return end;end;elseif n<=17 then if n<=14 then if n<=12 then local n=l[2];local c=l[5];local l=n+2;local a={e[n](e[n+1],e[l])};for o=1,c do e[l+o]=a[o];end;local n=e[n+3];if n then e[l]=n else o=o+1;end;elseif n==13 then o=o+l[3];else local n=l[2];local c={};local o=0;local a=n+l[3]-1;for l=n+1,a do o=o+1;c[o]=e[l];end;local c={e[n](r(c,1,a-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;t=l;end;elseif n<=15 then local n=l[2];local c={};local o=0;local l=n+l[3]-1;for l=n+1,l do o=o+1;c[o]=e[l];end;local c,l=u(e[n](r(c,1,l-n)));l=l+n-1;o=0;for l=n,l do o=o+1;e[l]=c[o];end;t=l;elseif n>16 then if(e[l[2]]==c[l[5]])then o=o+1;else o=o+l[3];end;else local n=l[2];local a={};local o=0;local c=t;for l=n+1,c do o=o+1;a[o]=e[l];end;local c={e[n](r(a,1,c-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;t=l;end;elseif n<=20 then if n<=18 then if(e[l[2]]==c[l[5]])then o=o+1;else o=o+l[3];end;elseif n>19 then e[l[2]]=e[l[3]][c[l[5]]];else e[l[2]]=h[c[l[3]]];end;elseif n<=22 then if n==21 then local n=l[2];local c=l[5];local l=n+2;local a={e[n](e[n+1],e[l])};for o=1,c do e[l+o]=a[o];end;local n=e[n+3];if n then e[l]=n else o=o+1;end;else local n=l[2];local c={};local o=0;local a=n+l[3]-1;for l=n+1,a do o=o+1;c[o]=e[l];end;local c={e[n](r(c,1,a-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;t=l;end;elseif n>23 then do return end;else local n=l[2];local c={};local o=0;local l=n+l[3]-1;for l=n+1,l do o=o+1;c[o]=e[l];end;local c,l=u(e[n](r(c,1,l-n)));l=l+n-1;o=0;for l=n,l do o=o+1;e[l]=c[o];end;t=l;end;o=o+1;end;end;end;return C(B(),{},S())();