I can do stereo.pd

#N canvas 0 56 1366 712 10;
#X obj 445 347 dac~;
#X obj 445 64 phasor~ 0.0125;
#X obj 737 228 expr~ $v1/($v1*80*8%3%2+1)*($v1*80*8%4%3%2*($v1*80%2)+1)*80000*8+$v1*80000*($v1*8*8%10*8)%8
;
#X obj 738 297 expr~ ($v1*($v1/2000%3+1)%2)*pow(sin(1000/($v1%1000+600))
\, 50)*0.2*!($v1/1000%32*25%32<25)+($v1/(8000/pow(2 \, $v1/4000%3+1))%2)*!($v1/8000%2)*0.5
\; ($v1*($v1/2000%3+1)%2)*pow(sin(1000/($v1%1000+600)) \, 50)*0.2*($v1/1000%32*25%32<25)+($v1/(8000/pow(2
\, $v1/4000%3+1))%2)*($v1/8000%2)*0.5;
#X obj 442 84 expr~ $v1*80000*2%250+$v1*10*8*8*8%(8*8*8*10)*125/80
\; $v1*80000*4%250+$v1*10*8*8*8%(8*8*8*10)*125/160+8000, f 75;
#X obj 98 200 expr~ ($v1*2+sin($v1/80)*2)*pow(2 \, $v1/(1000/(1+$v1/8000%4%3%2*3))%5+1)/pow(3
\, $v1/(2500/(1+$v1/8000%6%5%4%3%2*19))%2+($v1/8000%3+3))%2*0.075*pow(sin(1000/($v1%1000+400))
\, $v1/1000%7+1) \;, f 75;
#X obj 825 155 expr~ ($v1*2+sin($v1/80)*2)*pow(2 \, $v1/(1000/(1+$v1/8000%4%3%2*3))%5+1)/pow(3
\, $v1/(2500/(1+$v1/8000%6%5%4%3%2*19))%2+($v1/8000%3+3))%2*0.075*pow(sin(1000/($v1%1000+400))
\, $v1/1000%7+1) \;, f 75;
#X msg 873 29 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 0 1;
#X connect 3 1 0 0;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 5 0 0 0;
#X connect 6 0 0 1;
#X connect 7 0 1 1;