#!sh n.com
`prng 0;(ˆ):{`exp y*`ln x};S:22050;p:{x+`sin@x}/1
bs:{bps::16;,/|'+256 256\_32768*x};ss:{{x%3+|/x}@+/x}
es:{y*(1.0+&(#y)-n),|e:%[;2]@1+`cos@p+p*(!n)%-1+n:_S*x}
Es:{y*e,(1.0+&(#y)-2*n),|e:%[;2]@1+`cos@p+p*(!n)%-1+n:_S*x}
ll:{0.12%0.12|(1.5e8*s*s)%(*/s+/:424 1.5e8)*%*/11599 544496+\:s:x*x}
sf:{u:{(ll@y)*es[x%10]`sin@2*`sin@s:y*2*p*f:(!_S*x)%S-1};$[~^`i`f?@y;u[x]y;ss@u[x]'y]}
rs:lx{s:{+/60((`f$&x),(-x)_)\y}@/:n:|(|`pri -17!S)17*!6;{x%1+|/x}@(-x*2)+0.012*+/s@\:x}
fe:{(~0>x)*27.5*2ˆx%12};fm:{(~0>x)*{(fe@0)*(`exp@u-g*_(u:((`ln@5)%4)*12!x*7)%g:`ln@2)*/(-12!x)#2}'x}
fj:{(~0>x)*{(fe@0)*((1 16 9 6 5 4 45 3 8 5 9 15%1 15 8 5 4 3 32 2 5 3 5 8)12!x)*/(-12!x)#2}'x}
i:{,/`c$+|2/+0N 8#((x*8)#2)\y};i2:i@2;i4:i@4;wb:{"RIFF",i4[#f],"WAVE",f:"fmt ",i4[16],i2[1],i2[1],i4[S],i4[_S*bpb],i2[bpb:-8!bps],i2[bps],"data",i4[#d],d:`c$x}
play:{`x((,"/usr/bin/env")," "\"afplay /tmp/a.wav";"");}

/bach 1027 andante
m0:-77+,/" "\"wkwkwkwkwkwkwkwk okok thththththththth sgsg rfrf qeqe pdpdpdpd iuiuiuiuiuiuiuiu gsgs frfrfrfrfrfrfrfrfrfr ksks irir gpgp fnfn dmdm bnbn gofo pkwk h... nhma f... ...."
m1:-58+,/" "\"kopskops lklplklp ilorilor gfgkgfgk dfhkprtw q.t.q.m. fhimrtur l.o.l.h. knmhiefi bdfinpri c.f.d.g. d.g.d.g. jideimnt utunmnmn ........ nrswnrsw pnpspnps imnrimnr f.i.f.b. fgiorsur s.w.s.p. acdjmops e.c.cd.. .fgppopo lopulopu kopskops iopriopr gopwgopw fopxfopx gopwgopw hpnwhpnw lopukops jopskops mopsrpop p..o ........"
s0:0.4*,/Es[0.005]'sf[12%8*n:6]'fm m0
s1:0.8*,/Es[0.005]'sf[12%8*2*n]'fm m1
l:&/#'s:(s0;s1)
"/tmp/a.wav"1:wb bs es[n%2] rs ss l#'s
play[]

/kdaw - fall.tr/n.com digital audio workstation 2025.12.16(c)arlyle(l)MIT. last:2026.03.13
/S:samplerate Es:ease<samp es:easeout<samp ss:samp<samps wb:wav<bytes bs:16bit<samp
/rs:reverb<sample sf:samp<freq fe:freq<equaltem fj:freq<justintonation fm:freq<meantone