[corporate pruning] ZVUUUUUUTUUTTUUUUUUUUUUUUUUTTUUUUUUUUUUUTTTTTTTTUUUUUTTTTTTTTUUUUUUUUUUUUUUUUUTTUUUUUUUUUUTTUUUUUUUUUUTTTTTTTUUTTTTTTTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTTUUUUUUUUUUUUUUTUTTTTTUTTTTTTTTTUTTUUUUUUUUUUUUUUUUUUUUTTTTTTUUUUUUUUUTTTTUUUUUUUUUUTTTTTTTTTTTTTTTTTTTTTTTTTTTTTUUUUUTTTTTTTTTTTTTTTTTTTTTTUUUUUUUUUUUUUUUUUUTTTTTTTTUUUUUTTTTTTTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTTTUUUUUUTTTTTTTTTTUUUUUUUUUUUTTUUUUUUUTTTTTUUUUTTTTTTTUUUUUUUUUUUUUUUUUUUUUUUUTTTTUUUUUUUUUUUUTUUUUUUUUUUUUUUUTTTUUUUUUUUUUTTTUUUUUUUUUUUUUUUTTTUUUUUTTTTTTTTTUUUUTTTTTUUUUUUUUTTUUUUUUUUTTTTTTTTTUUUUUUUUUUTTTUUUUUUUUUUUUUTUUUUUUUTTUUUUUTTTTTTTTTTUUUUUTTTTTTUUUUUUUUUUUUUUTTTTTTTTTTTTTTTTTTUUUTTTTUUTTUUUUUUTTUTTTTTUUUUUUTTTUUUUUUUUUUUUUUUUUUTTUTTTTUUUUUUUUTTTTTTUUUUUUUTTTTTTUTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTUTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTUTTTTTTTTTTTTUUUUUUTTTTTTTTTTTTTTTUUUUUUUUUUUUUTTTTTUTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTUUUUUUUUUUUUUUUUUUUUUUTTTTTTUUTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTTTTTTTTTTTTTTTTTTUTTTTTTTTTTTTTTTTTTTTTTTUTTTTTTTTUTUUTUUUUUTTTTTUUUUUUTTTTTTTUUUUUUTTUTUUUUUTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTUTTUTTUTTUTTUTTUTTTTTTTTUTTUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTTUTTTTTTTTTTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTUUUUUUUUUUUTTUTTUTTUTTTTTTTUTTTTUTTUTTTUUTTUTTUUUUUTUUUUUTTUTTTTUTTUTTTTTTTTTTTTUUUUUUUUUUUUUUUUUTUTTUUTUUUUUUUUUUUUUUTUTTUTTUTTUUUTTTTTTTTTTUUUTTUUUUUUUUUTUTUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUTTUUUUUUUTTUTTUTTTUUUTTUUUUTUUUTUUUUUTUUUUTUUUUUUUUUUUUTUUUUUUUUTUUUUUUUUUUTUUUUUUUUUUTUUTUUUUUUUUUUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUTTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTTTTTTTTTUUUUTUUTUUUUUUUUUUTUUUUUUUTTUUTTUUUUTTUUUUUUUTTUUTUUTTTUTTUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU

(t/24*("1234"[(t>>12)%4])*13)%256/2+(t*random()&-t>>4)%256/4+(4E5/(t&16383)&64)+(t*random()*"01010101"[t>>14&3]&-t>>6)%256/8

ds=1,t=(t/ds|0)*ds,song=t=>(I=3,er=0/0,BPM=160,SAMPRATE=38250,T=t/SAMPRATE*BPM/60*16384,T&=8388607,_T=T,c=(x,y)=>x%256*(y),tri=x=>btf(abs((x%256)-128)),bB=T=>t*[1,1.2,1.35,1.5,1,1.2,.8,.9][(T>>16)&7]*('V111'[(_T>>12)&3]=='V'?(tan((t>>3)*PI/2)|0):1),bA=T=>t*[1,1.2,1.35,1.5,1,1.2,.8,.9][(T>>16)&7]*2*('V111'[(_T>>12)&3]=='V'?(tan((t>>3)*PI/2)|0):1),btf=x=>x/128-1,fd=(x,y)=>x%256*(y&2047)/2048,B=T=>fd(fd((asin(cos(sin(bA(T)*PI/256*('V111'[(_T>>12)&3]=='V'?(tan((t>>3)*PI/2)|0):1))+sin(bA(T)/2*PI/256*('V111'[(_T>>12)&3]=='V'?(tan((t>>3)*PI/2)|0):1))*(-tri(T/2048)))*((bA(T)>>8&2)-1))*512^bB(T)/128%2*256)/512,-_T>>1),(_T>>3^767)+1.1),B2=T=>fd(fd(tri(bA(T)/2*('V111'[(_T>>12)&3]=='V'?(tan((t>>3)*PI/2)|0):1)^c(bA(T)/4,-tri(T/2048)*16)*('V111'[(_T>>12)&3]=='V'?(tan((t>>3)*PI/2)|0):1)),-_T>>1),(_T>>3)^767)+fd(fd(0.5,-_T>>1),_T>>3^767)*2,bass=T=>c(bB(T)/4*((T>>18&1)+1),abs(((T+262144)/32768%16)-8))/2%256,B3=T=>fd(fd(btf(abs(((c(bass(T)%256,abs(((T+262144)/32768%16)-8))-128)%256)-128)%256),-_T>>1),_T>>3^767)*2,hA=T=>t*2**([0,7,7,10,5,5,7,3,3,5,2,2,3,2,0,5][(T*(1+(T>>18&1))>>13)%16]/12)*(1+(T>>18&1)),hB=T=>t*[1,0.9,1,1.125,1.2,1.125,1.2,1.35,1.5,1.35,1.6,1.5,1.8,1.6,1.5,1.6,1.35,1.5,1.6,1.8,2,2.25,2.4,2.7,1.125,1.2,1.35,1.5,1.875,2,2.25,2.4][(T>>13)&31]*(1+(T>>18&1)),HA1=T=>btf((hA(T)*2^hA(T)*3^hA(T)*7)/2%256),HA2=T=>btf(((hA(T)*1.25^hA(T)/16*3*1.25)-hA(T)*1.015625+1|hA(T))%256),HA=T=>(HA1(T)/2+HA2(T)/2),fEFF=x=>min(max(x,0),1),kick=T=>btf(sin(500/cbrt(T/32%256)*'10000100110001001000010011001101'[(T>>13)&31])*127)+1,A=T=>[er,er,1,1,I,I,1,I,1,I,er,er,I,I,1,I,er,er,er,er,I,I,1,I,1,I,er,er,I,I,1,I][(T>>12)%32],B_=T=>[er,er,er,er,I,I,1,I,1,I,er,er,I,I,1,I][(T>>12)%16],ABsnarehi=T=>fd(t*tan(t>>[A(T),B_(T)][(T>>17)%2])/8&128*([[er,er,1,1,2,2,1,2,1,2,er,er,2,2,1,2,er,er,er,er,2,2,1,2,1,2,er,er,2,2,1,2][(T>>12)%32],[er,er,1,1,2,2,1,2,1,2,er,er,2,2,1,2,er,er,er,er,2,2,1,2,1,2,er,er,2,2,1,2][(T>>12)%32]][(T>>17)%2]>0),-T>>[2,2,2,2,2,2,1,2,1,2,2,2,2,2,1,2,2,2,2,2,2,2,1,2,1,2,2,2,2,2,1,2,/**/2,2,2,2,2,2,1,2,1,2,2,2,2,2,1,2,2,2,2,2,2,2,1,2,1,2,2,2,2,2,1,2][(T>>12)%64]),AB=ABsnarehi(T)/2+kick(T)/2,snare=T=>fd((sin(t>>3)*t&255)/256,-T>>2)*'0010'[(T>>13)%4],HB1=T=>btf((hB(T)^hB(T)*1.5^hB(T)*3.5)%256),HB2=T=>btf(((hB(T)*1.25^hB(T)/16*3*1.25)-hB(T)*1.015625+1|hB(T))%256),HB=T=>(HB1(T)/2+HB2(T)/2),[
B(T)/2-(kick(T)-kick(T+T/524288*4)*(1-min(T/524288,1))),
B(T)/2+(kick(T)-kick(T+T/524288*4)*(1-min(T/524288,1)))+snare(T),
B2(T)+HA(T)/4,
B2(T)+HA(T)/4+kick(T)+snare(T),
B3(T)+AB/32+HA1(T)/2-kick(T)*2,

B3(T)*!!(T&8192)+kick(T&16383^15)*4*!(T&8192)+B(T),
HB(T)/2+(B3(T)/2-B(T)/2)-kick(T)+snare(T)*2,
B(T)+HB(T^T<<1)+AB/16-kick(T^15)*40,
B(T)+HB(T^T>>1)+kick(T&131071^15)*40-kick(T&131071^15^49152)*40-snare(T)-AB/32,
HB(T^T>>1)/2+kick(T)-B2(T)*2-AB/16,
kick(T)+B3(T)/2+ABsnarehi((T|4095)-40)/128+snare(T),
HB(T^T>>1)/2+B3(T)/2+kick(T)*40-kick

magik=2**(1/12),p=.95*2,BPM=156,sr=24000,T=t/sr*4096/15*BPM,an=(v,b)=>v<0?(b-abs(v%b)):v%b,h=T=>((((t*p*magik**(an(an(T>>12&63^(T>>12&63)-5,15)-(T>>17&2),15)/7*12+.24|0)&255)-128)*max(min(~T>>4&255,max(~T>>11&255,128)),~T>>4&255)*(T>>12&127)>>13&255)&255),b=T=>t*p*magik**((bt=[0,0,0,0,-4,-4,-2,-5][T>>16&7])+[[0,5,7],[0,5,12],[0,5,7],[0,5,12],[0,9,11],[0,9,16],[0,7,9],[0,10,17]][T>>16&7][(T>>13&7)%3])/3*2,b2=T=>t*p*magik**([0,0,0,0,-4,-4,-2,-5][T>>16&7])/3*2,h2=T=>t*p*(magik**([(b(T),bt),(b(T),bt),(b(T),bt),(b(T),bt),7,(b(T),bt),6,5,NaN,T>>17&1?[12,7][T>>12&1]:5,5,7,3,T>>10&2,2,3][T>>13&15])*(~(T>>11+int('1011011010111111'[T>>13&15])&~T>>15)&1)/3*4)|0,H3A=T=>t*p*16/3*magik**[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,3,3,3,3,3,3,5,5,2,2,2,2,-2,-2,-2,-2,7,7,7,7,7,7,5,5,5,5,5,5,3,3,3,3,10,10,10,10,10,10,2,2,2,2,2,2,3,3,3,3][T>>13&63]^0,H3B=T=>t*p*4*magik**[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,5,5,5,5,5,5,7,7,3,3,3,3,-2,-2,-2,-2,8,8,8,8,8,8,7,7,7,7,7,7,3,3,3,3,12,12,12,12,12,12,4,4,4,4,4,4,3,3,3,3][T>>13&63]^0,h3wf=T=>sin(T/128*PI+atan(cos(T/64*PI))*sin((T>>6)*PI/4)*3)*33,h3a=T=>h3wf(H3A(T)),h3b=T=>h3wf(H3B(T)),h3=T=>h3a(T)/2+h3b(T)/2,kick=T=>128-abs((3e5/(T&(2**14/[2,4,1,15,4,2,4,17,1,2,4,15,1,8>>(T>>11&2),8>>(T>>11&2),t*p&T>>4&31][T>>13&15])-1)&255)-128)*2,kick2=T=>sin(5*cbrt(T&(2**12/[1,,H=t*p&2,,S=(~T>>19&4?2**12:sin(t>>5)),,H,1,1,,S,,2,2,1,H,1,,H,,S,,H,,1,1,2+H*(T>>17&1),1,2+H*(T>>17&1),1,t/3*4&42,t/3*4&55][T>>12&31])-1))*(T>>19&6)*500,!(t&1023)?(()=>{throw "ChrisRM_380 - tin tin xoltus - hexidian raids\nT=" + (T^0) + " thrown: this is inspired by \"ImperfectNORE - PHOENIX (MASTERED)\"\n________________________________________________________________________"})():min(max((((b(T)^b(T)*2)%256/2+(b2(T)/2%256*(T>>12&127)>>5^b2(T)/2)%256*!!(T>>19&7)+h(T)/2)-((((h2(T)*2&255)-128)*(~(T>>5+int('1011011010111111'[T>>13&15]))&127)*((T>>11&255)*2+256)>>14&255)-128)*!!(T>>19&3)+h3(T)*7*!!(T>>19&2)+kick(T)*!!(T>>19&12)-kick2(T)*((T>>19&15)>=2))/2+(hihatPrepare=T=>(random()-.5)*(1-T/4096%1)*128*(2-abs(((T/131072+2)%4)-2))*(T>>18&1))(T),0),255)

an=(x,y)=>x>0?x%y:y-abs(x%y) //an stands for antinegative here, kinda like modulus but doesn't turn negatives into negatives
//for example, antinegative(-1, 10) will be 9 while (-1)%10 is -1
,(
t*((2**(1/12))**(an(t>>12&63^(t>>12&63)-5,15)*12/7+.24|0)) //the melody itself
%256-128) //waveform stuff
*(~t&4095)>>11 //the "synth" itself

BPM=160,SR=48000,T=t/15*BPM/SR*4096,an=(x,y)=>x<0?y-abs(x%y):x%y,n=(T>>19&7)<=6&&(T>>19&7)>=1?((T>>19&7)<=5&&(T>>19&7)>=2?PI/5:PI/5.12):E/4.6,magik=2**(1/12),c=T=>((((vTemp=t=>(t*n*magik**([8,0,-7,5,0,-7,8,0,-7,5,0,-7,8,0,5,-7,10,0,-7,5,0,-11,10,1,-7,7,3,-2,10,3,-2,7,12,0,-7,8,0,-7,12,0,-7,8,0,-7,12,0,8,-7,12,0,-7,8,0,-7,12,0,10,1,3,7,-2,3,5,7,8,-4,-11,5,-4,-11,8,-4,-7,5,-4,-11,10,-4,5,-7,7,-2,-9,3,-2,-9,7,-2,-9,3,-9,-2,8,7,5,10,12,0,-7,8,0,-7,12,0,-7,8,0,-7,12,0,8,-7,12,0,-7,8,0,-7,12,0,10,1,3,7,-2,3,5,7,][T>>12&127])))(t)*[1+(t&T>>13&1),5-(t&T>>11&7)][t&1]&127)-(64-(T>>7&48))&128)%256-(~T>>7&48))/256*[1.0002,1.0003][t&1]**(-T%4096)/2+(((vTemp(t)^vTemp(t)*5)/2&127)-(64-(T>>7&48))&128)/256*[1.0002,1.0003][t&1]**(-T%4096)/2,c2=T=>(((t/2*n*magik**(an(an(T>>12&63^(T>>12&63)-5,15)-(T>>17&2),15)/7*12+.24|0)&127)-(64-(T>>7&48)*1.1)&128)%256-(T>>7&48))*(1-T/4096%1/1.2)/256,filter=x=>sqrt(abs(x))*sign(x),kick=T=>3*sin(cbrt(tempv=T*4&(2**14/[1,,H=t/1.5&1,,S=((T>>19&3)!=3?1:sin(t*E>>4)*sin(t>>4)),,H,1,1,,H,,S,2,1,H,1,,H,,S,,H,,1,1,2,1,2,1,13,19][T>>12&31])-1)*3.5),bass=T=>t*magik**[5,5,7,3,5,5,5,3,1,1,3,3,-2,-2,-2,1][15&T>>15]*n,h=T=>t*magik**[0,7,7,10,5,5,7,3,3,5,2,2,3,2,0,5][15&T>>12^2]/1.5*2*n,b=T=>((bass(T)^bass(T)*2.5)/256%1-(bass(T)^bass(T)*2.5)/128%1)*filter((bass(T)/128+(T>>13&5)*E)%1-.5)+!!(T>>19&3)*(bass(T)^bass(T)*((T>>19&3^1)+2)+T/128)/512/(2**((T>>19&3)>=1))/(1+((T>>19^1&3)==3))%1-.5,HH=T=>an((h(T)/16%8-4)*(1-T/4096/'2211444122224441'[T>>12&15]%1),2+(T/524288%1)*1.5)-1-(T/524288%1)/1.5,max(min((c(T)*24+c2(T)*18+kick(T)*4*!!(T>>19&2)+b(T)*5+.5*sign(HH(T))/max(min(abs(HH(T)),.3),.1)/2)*(~T&2097152?min(T%4194304/524288,1):max(min(8-T%4194904/524288,1),0))/5*(~T>>13&1&T>>20^1?1:abs(T/4096%1-1)*2),1),-1)

f=(t%65536/3>>7&63)/(70+(cos(t*PI/65536/3)+.94)*200)/3+.01,a=i=>i&&(t*2**(([0,4,7,11][t&3]-'0075'[t>>16&3])/12)+f*i*7)%256/100+a(i-1),(a(100)/128-1)*-cbrt(t%8192-13E3)/32*min(1,abs(asin(sin(t*PI/8192)))*48),
//NEW CODE STARTS BELOW, Original by Decent-Manager-6169
M=(a(100)/128-1)*-cbrt(t%8192-13E3)/32*min(1,abs(asin(sin(t*PI/8192)))*48)*2,
SINL=sin((a(1)-1)*((t>>13&63)+15)/8),
SINR=sin((a(1)-1.5)*((t>>13&63)+15)/8),
dr=min(1,max(-1,sin(t/256/('4475'[t>>16&3]/5))/((t>>10&31)+1)*8)),sn=
(sin(t/128/('4475'[t>>16&3]/5))+
sin(t*random())/((t>>8&31)+.5))/((t>>10&31)+1)*3,
sn2=
(sin(t/128/('4475'[t>>16&3]/5))+
sin(t*random())/((t>>10&31)+.5))/((t>>8&31)+1)*3,
sn3=
(sin(t/128/('4475'[t>>16&3]/5))+
sin(t*random())/((t>>10&31)+.5))/((t>>10&31)+1)*3,
sn4=
(sin(t/128/('4475'[t>>16&3]/5))+
sin(t*random())/((t>>10&31)+.5))/((t>>10&31)+1)*3,
drsn=[dr,sn3][t>>15&1],
drsn2=[dr,sn4][t>>15&1],
SO=[[SINL,SINR],
[M/(t>>12&127)*128,-M/(t>>12&127)*128,],
[M+dr+sn,-M+dr+sn2],
[M+dr+sn,-M+dr+sn2],
[sin(min(.1,max(-.1,(M)))*8*((t/8192&7)+1)),sin(min(.1,max(-.1,(-M)))*8*((t/8192&7)+1))]
,
[sin(min(.1,max(-.1,(M)))*8*((t/8192&7)+1))+drsn,sin(min(.1,max(-.1,(-M)))*8*((t/8192&7)+1))+drsn2]
,[sin(min(.1,max(-.1,(M)))*8*((t/8192&7)+1))+drsn,sin(min(.1,max(-.1,(-M)))*8*((t/8192&7)+1))+drsn2],
[sin(M*(3+sin(t*PI/8192))),sin(M*(2+sin(t*PI/8192)))],
[sin(M*(3+sin(t*PI/8192)))+drsn,sin(M*(2+sin(t*PI/8192)))+drsn2]],
SO[(t>>19)%SO.length]

BPM=160,SR=48000,T=t/15*BPM/SR*4096,an=(x,y)=>x<0?y-abs(x%y):x%y,n=(T>>19&7)<=6&&(T>>19&7)>=1?((T>>19&7)<=5&&(T>>19&7)>=2?PI/5:PI/5.12):E/4.6,magik=2**(1/12),c=T=>((((vTemp=t=>(t*n*magik**([8,0,-7,5,0,-7,8,0,-7,5,0,-7,8,0,5,-7,10,0,-7,5,0,-11,10,1,-7,7,3,-2,10,3,-2,7,12,0,-7,8,0,-7,12,0,-7,8,0,-7,12,0,8,-7,12,0,-7,8,0,-7,12,0,10,1,3,7,-2,3,5,7,8,-4,-11,5,-4,-11,8,-4,-7,5,-4,-11,10,-4,5,-7,7,-2,-9,3,-2,-9,7,-2,-9,3,-9,-2,8,7,5,10,12,0,-7,8,0,-7,12,0,-7,8,0,-7,12,0,8,-7,12,0,-7,8,0,-7,12,0,10,1,3,7,-2,3,5,7,][T>>12&127])))(t)*[1+(t&T>>13&1),5-(t&T>>11&7)][t&1]&127)-(64-(T>>7&48))&128)%256-(~T>>7&48))/256*[1.0002,1.0003][t&1]**(-T%4096)/2+(((vTemp(t)^vTemp(t)*5)/2&127)-(64-(T>>7&48))&128)/256*[1.0002,1.0003][t&1]**(-T%4096)/2,c2=T=>(((t/2*n*magik**(an(an(T>>12&63^(T>>12&63)-5,15)-(T>>17&2),15)/7*12+.24|0)&127)-(64-(T>>7&48)*1.1)&128)%256-(T>>7&48))*(1-T/4096%1/1.2)/256,filter=x=>sqrt(abs(x))*sign(x),kick=T=>3*sin(cbrt(tempv=T*4&(2**14/[1,,H=t/1.5&1,,S=((T>>19&3)!=3?1:sin(t*E>>4)*sin(t>>4)),,H,1,1,,H,,S,2,1,H,1,,H,,S,,H,,1,1,2,1,2,1,13,19][T>>12&31])-1)*3.5),bass=T=>t*magik**[5,5,7,3,5,5,5,3,1,1,3,3,-2,-2,-2,1][15&T>>15]*n,h=T=>t*magik**[0,7,7,10,5,5,7,3,3,5,2,2,3,2,0,5][15&T>>12^2]/1.5*2*n,b=T=>((bass(T)^bass(T)*2.5)/256%1-(bass(T)^bass(T)*2.5)/128%1)*filter((bass(T)/128+(T>>13&5)*E)%1-.5)+!!(T>>19&3)*(bass(T)^bass(T)*((T>>19&3^1)+2)+T/128)/512/(2**((T>>19&3)>=1))/(1+((T>>19^1&3)==3))%1-.5,HH=T=>an((h(T)/16%8-4)*(1-T/4096/'2211444122224441'[T>>12&15]%1),2+(T/524288%1)*1.5)-1-(T/524288%1)/1.5,max(min((c(T)*24+c2(T)*18+kick(T)*4*!!(T>>19&2)+b(T)*5+.5*sign(HH(T))/max(min(abs(HH(T)),.3),.1)/2)*(~T&2097152?min(T%4194304/524288,1):max(min(8-T%4194904/524288,1),0))/5*(~T>>13&1&T>>20^1?1:abs(T/4096%1-1)*2),1),-1)

t?0:z1=[],callCount=0,lpf=lowPassFilter=(a,c)=>(call=callCount++,z1[call]??=0,z1[call]+=(a-z1[call])*c),hpf=highPassFilter=(a,c)=>a-lpf(a,c),pitches={st:1,downtones:4.8},pn=(x,a)=>2**((parseInt(x[a],36)+pitches.st)/12)/pitches.downtones,a=t=>t<0?0:hpf((((t*pn("0CV0COHJ8OMQAMTY",t>>13&15)&127)+32&128)-64)*abs(t/1048576%1-.5)**(t/8192%1),.005),s=(()=>{let s=0;for(let i=0;i<50;i++){s+=a(t-i*12288)/(abs(t/1048576%2-1)+1.25)**i}return s})()/256+(t/128*pn("000000008888AAAA",t>>13&15)&1)/4*"1001001010"[t>>13&7],lpf(s,min(t/1048576,1));

BPM=156,SR=24000,T=t/SR*4096*BPM/15,_p=1.95,a=[0,3,5,7,0,3,-4,-2],a1=[3,7,9,11,3,7,0,2],a2=[7,10,12,14,7,10,3,5],B=a=>(_p/1.5*t*2**(a[i=7&T>>15]/12)&-T>>6)%256/5,S=(s,p)=>.7*(((p/1.5*_p*t*2**([a,a1,a2,a1][3&T>>s][i]/12)&255)-128)*(T>>6&255^255)>>7&255)/2,kick=T=>128-abs((3e5/(T&(2**14/[2,4,1,15,4,2,4,17,1,2,4,15,1,8>>(T>>11&2),8>>(T>>11&2),t*_p&T>>4&31][T>>13&15])-1)&255)-128)*2,kick2=T=>sin(5*cbrt(T&(2**12/[1,,H=t*_p&2,,SS=(~T>>19&4?2**12:sin(t>>5)),,H,1,1,,SS,,2,2,1,H,1,,H,,SS,,H,,1,1,2+H*(T>>17&1),1,2+H*(T>>17&1),1,t/3*4&42,t/3*4&55][T>>12&31])-1))*(T>>19&6)*500,b=T=>t*2**(a[T>>15&7]/12)/1.5*_p,h=T=>(p1=(((t*_p/3*[1,1,1,1,1,1,1,1.2,1.2,1.2,1.2,1.2,1.2,1.2,1.2,1.35,1.35,1.35,1.35,1.35,1.35,1.35,1.35,1.5,1.5,1.5,1.5,1.5,1.5,1.5,1.5][(T>>12)%32])&127)+[112,96,80,64,112,96,80,112,96,80,64,112,112,96,80,64,112,96,80,64,112,96,80,64,64,80,96,112,116,120,128][(T>>12)%32]&128),p2=(log2(T/64%256)*1024*3/3.5&128)*(1+(T>>13&1))+(p1*((T>>13)&1)&128),p3=((t*_p*(2+((t*_p/3*[1,1,1,1,1,1,1,1.2,1.2,1.2,1.2,1.2,1.2,1.2,1.2,1.35,1.35,1.35,1.35,1.35,1.35,1.35,1.35,1.5,1.5,1.5,1.5,1.5,1.5,1.5,1.5][(T>>12)%32])>>7&1))/3*[1,1,1,1,1,1,1,1.2,1.2,1.2,1.2,1.2,1.2,1.2,1.2,1.35,1.35,1.35,1.35,1.35,1.35,1.35,1.35,1.5,1.5,1.5,1.5,1.5,1.5,1.5,1.5][(T>>12)%32])&127)-((t*_p*2*(2+((t*_p/3*[1,1,1,1,1,1,1,1.2,1.2,1.2,1.2,1.2,1.2,1.2,1.2,1.35,1.35,1.35,1.35,1.35,1.35,1.35,1.35,1.5,1.5,1.5,1.5,1.5,1.5,1.5,1.5][(T>>12)%32])>>7&1))/3*[1,1,1,1,1,1,1,1.2,1.2,1.2,1.2,1.2,1.2,1.2,1.2,1.35,1.35,1.35,1.35,1.35,1.35,1.35,1.35,1.5,1.5,1.5,1.5,1.5,1.5,1.5,1.5][(T>>12)%32])&192)+96+(~T>>19&1?p1:p2)&224),min(max(((B(a)+B(a1)+B(a2)-(h(T)*1.3-128)*(~T>>17&1)+[S(14,1)+S(15,2),2*(S(9,1)+S(14,2))*(1-T%8192/9E3)][1&T>>13]+(kick(T)*!!(T>>19&12)-kick2(T)*((T>>19&15)>=2))/2+(hihatPrepare=T=>(random()-.5)*(1-T/4096%1)*128*(2-abs(((T/131072+2)%4)-2))*(T>>18&1))(T))+(((b(T)^b(T)*2)%256/2)+(b(T)/2%256*(T>>12&127)>>5^b(T)/2)%256*!!(T>>19&7)/2))/1.5,0),255)

// filter buffer
let filter = new Float32Array(131072);

// settings
var settings = {
  BPM: 240,
  SPD: 1,
  FRQ: 440
};

var length = 16;
var BPS = settings.BPM * settings.SPD / 60;


function P(time, note, pitch) {
  return 2 ** ((note - 69) / 12 + pitch) * settings.FRQ;
}

// oscillators
function Square(input, duty = 0.5) {
  return input % 1 > duty ? -1 : 1;
}

function Saw(input) {
  return 2 * input % 2 - 1;
}

function Sine(input) {
  return sin(4 * PI * input);
}

function Triangle(input) {
  return abs(input % 2 - 1) - 0.5;
}

function Noise(input) {
  return sin((255 * input | 0) ** 3);
}

// filters
function lowPass(buff, input, strength) {
  return filter[buff] += (input - filter[buff]) * strength;
}

function highPass(buff, input, strength) {
  return lowPass(buff, input, strength) - input;
}

function bandPass(buff, input, strength) {
  return highPass(buff + 1, lowPass(buff, input, strength), strength);
}


function MIDI(
  noFilter = 1, filt, buff, strength_,
  time, func, offset, note, pitch,
  strength, vol = 1
) {
  var code = (time * BPS - offset) > 0
    ? func(time * P(time, note, pitch))
        * strength ** ((time * BPS - offset) % length) ** 0.7
        / 8 * vol
    : 0;

  return !noFilter ? filt(buff, code, strength_) : code;
}


return function(time) {
  return [
    // melody
    [1, null, null, null, time, Square, 0,  -4, 5, 0.5, 2],
    [1, null, null, null, time, Square, 1,   3, 5, 0.5, 2],
    [1, null, null, null, time, Square, 2,  10, 5, 0.5, 2],
    [1, null, null, null, time, Square, 3,  11, 5, 0.5, 2],
    [1, null, null, null, time, Square, 4,  15, 5, 0.4, 2],
    [1, null, null, null, time, Square, 6,   8, 5, 0.4, 2],
    [1, null, null, null, time, Square, 7,  10, 5, 0.4, 2],
    [1, null, null, null, time, Square, 8,  -1, 5, 0.5, 2],
    [1, null, null, null, time, Square, 9,   3, 5, 0.5, 2],
    [1, null, null, null, time, Square, 10,  4, 5, 0.5, 2],
    [1, null, null, null, time, Square, 11,  8, 5, 0.2, 2],
    [1, null, null, null, time, Square, 12, 10, 5, 0.5, 2],
    [1, null, null, null, time, Square, 13,  6, 5, 0.2, 2],
    [1, null, null, null, time, Square, 14,  1, 5, 0.4, 2],
    [1, null, null, null, time, Square, 15,  3, 5, 0.4, 2],

    // bass
    [1, null, null, null, time, Saw,  0, -4, 3, 0.7, 3],
    [1, null, null, null, time, Saw,  8, -8, 3, 0.7, 3],
    [1, null, null, null, time, Saw, 12, -6, 3, 0.7, 3],

    // triangle blips
    [1, null, null, null, time, Triangle,  4,   -4, 9, 0.01, 8],
    [1, null, null, null, time, Triangle,  4.25,-4, 9, 0.01, 8],
    [1, null, null, null, time, Triangle,  4.5, -4, 9, 0.01, 8],
    [1, null, null, null, time, Triangle,  4.75,-4, 9, 0.01, 8],
    [1, null, null, null, time, Triangle,  5,   -4, 9, 0.01, 8],
    [1, null, null, null, time, Triangle,  5.25,-4, 9, 0.01, 8],

    [1, null, null, null, time, Triangle, 12,   -6, 9, 0.01, 8],
    [1, null, null, null, time, Triangle, 12.25,-6, 9, 0.01, 8],
    [1, null, null, null, time, Triangle, 12.5, -6, 9, 0.01, 8],
    [1, null, null, null, time, Triangle, 12.75,-6, 9, 0.01, 8],
    [1, null, null, null, time, Triangle, 13,   -6, 9, 0.01, 8],
    [1, null, null, null, time, Triangle, 13.25,-6, 9, 0.01, 8],
  ]
  .map(([noFilter, filt, buff, strength_, time, func, offset, note, speed, strength, vol]) =>
    MIDI(noFilter, filt, buff, strength_, time, func, offset, note, speed, strength, vol)
  )
  .reduce((a, b) => a + b);
};

(T=3*t/5)?c:(L='length',c=1+int(random()*4|0),a=new Array(round(12288*(C=1+int(2*random())))-1).fill(0),w={t:(t,n)=>{var o=PI*t/128;return sin(o+sin(o+sin(o)))*n},o:t=>sin((t|0)**3)},f=(t,n)=>t/n,add=(...n)=>n.map(t=>f(t,n.length)).reduce((t,n)=>t+n)),p=2**([[0,3,7,-4],[8,10,12,7]][T*c&8191?C:C=(int(2*random()))][(T*c&4095?count2:count2=int(random()*4))&3]/12+1)*2**(c/12),s=(n,o)=>add(w.t(n?t*p-o:t*p+o,min(1,T*c/512%16)*.1**(T*c/8192%1)**2),w.o(4*t)*(T*c&8191?C:C=int(random()*3)&1)*1E-36**(T*C/4**7%1)),[add(s(1,t/64),s(0,t/128)),add(s(0,t/64),s(1,t/128))].map(n=>a[t%a[L]]+=(2*tanh(n)-a[t%a[L]|0])/6).reduce((n,o)=>[n*(1+sin(t/8**5+1)/2),o*(1+cos(t/8**5+2)/2)].map(x=>x*min(t/4**8,1)))

t||(A=x=>new Float32Array(x),n=8192,L='length',a=A(4**7),b=A(n),c=A(6144)),FF=A(512),p=t/n%8%3,c=[[0,4,7,11]],RR=random(),N=(x,y)=>x/y,LP=(x,y,z)=>FF[x]+=(y-FF[x])*z,HP=(x,y,z)=>LP(x,y,z)-y,F=(...x)=>x.map(i=>N(i,x.length)).reduce((a,b)=>a+b),f=(x,y=1)=>{r=x*PI/128;return sin(r+sin(r+sin(r)*y))*y},h=(l,d=0)=>[c[0],c[0],[-7,-3,0,4],[-5,-1,2,6]][t>>16&3].map(i=>f(t*2**(i/12+d)+l,min(3*p,1)*.3**p/8)).reduce((a,b)=>a+b)+f(~t*2**(-'0075'[t>>16&3]/12-1)+l,min(t/8**5%2,1))/20,v1=h(1)+h(t/64,-1),v2=h(-1,-1)+h(t/64),P=t%a[L]|0,Q=t%b[L]|0,R=t%c[L]|0,[v1,v2].map(i=>b[Q]=b[Q]*.6+i,c[R]=c[R]*.7+b[Q]*.6,a[P]=a[P]*.8+c[R]*.7,a[P]+b[Q]+c[R]).reduce((a,b)=>[a,b].map(x=>tanh(F(HP(0,2*x,.1)*8,8*((t>>11&15^12?4752>>(t>>12&15):1)&1?3*LP(1,tanh(4*sin(t/41)+8*sin(RR-.5)*(1+sin(4*PI*t/n+3)))*.2**(2*t/n%1),.1):sin(.8*(t%n)**.5)*2E-5**(t/n%1)),HP(2,sin(RR-.5),5)*4E-5**(t/4096%1)*.4)/2)))

p=[1.5,1.8,2,1,1,2,1,1,1.6,1,1,1.5,1,1,1.2,1][(t>>12)%16]*[1,1,1.5,1.35][3&t>>17],f=a=>((0xAFEDC320>>(a*t))&1)*255,g=a=>f(p/16*a)/(1024+(t&4095))*1024,[g(.99),g(1.01)]

t%=786432,r=(x,y=12288,z=0.5)=>(t?0:a=Array(y).fill(0),b=x%256+a.shift(),a.push(b*z),b),pI=parseInt,A=r(sin(t/20480*2*PI*528*2**(pI("J HJC AC7 570   5 35A   5 35D   "[t>>12&31],36)/12))||0,6144)/2,(t&16384?(t&16383):(t&8191))?0:S=Array.from({length:s=int(81920/(528*2**((pI("8CJ 8CJ 6AH 6AD 8CJ 8CJ BFM BFI"[t>>13&31],36)||0)/12)))},()=>random()),S[t%s]=S[t%s]/2+S[(t+1)%s]/2,B=r(S[t%s]-.5),D={K:sin(cbrt(t&4095)*8)/(1+((t/256)&15))},D.S=D.K/2+(D.H=(random()-.5)*(-t>>4&255)/256),C=D["K SKH SK  SKS   "[t>>12&15]]||0,[B+A,B+C][t>>19&1]

(4*(x=t>>6^t>>13)^t)+t>>(y=t>>11)%8|t%32^y<<x-t/3.12524|y<<6