Land of the Rising Sun | Inf Sprint

--[[
	Made by Megumu/Mommy Mango
	<3
]]

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