#!a
/kdaw - k digital audio workstation 2025.12.16(c)arlyle(l)MIT. last:2026.02.07
/S:samplerate Es:ease<samp es:easeout<samp cs:chord<samps wb:wav<bytes bs:16bit<samp
/sf:samp<freq fe:freq<equaltem fj:freq<justintonation fm:freq<meantone

`prng 0;(ˆ):{`exp(`ln x)*y};(§):{y@x};S:22050;p:3.14159265359
bs:{bps::16;,/|'+256 256\_32768*x};cs:{{x%3+|/x}@+/x}
sf:{u:{`sin y*2*p*(!_S*x)%S-1};$[~^`i`f?@y;u[x]y;cs@u[x]'y]}
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}
fe:27.5*2ˆ%[;12]@;fm:{{(fe 0)*(`exp u-g*_(u:((`ln 5)%4)*12!x*7)%g:`ln 2)*/(-12!x)#2}'x}
fj:{{(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 qqttqqmm fhimrtur lloollhh knmhiefi bdfinpri ccffddgg ddggddgg jideimnt utunmnmn ........ nrswnrsw pnpspnps imnrimnr ffiiffbb fgiorsur sswwsspp acdjmops e.c.cd.. .fgppopo lopulopu kopskops iopriopr gopwgopw fopxfopx gopwgopw hpnwhpnw lopukops jopskops mopsrpop p..o"
s0:0.4*,/Es[0.01]'sf[12%8*n:1.5]'fm 0|m0
s1:0.1*,/Es[0.01]'sf[12%8*n    ]'fm 0|m0+12
s2:0.2*,/Es[0.01]'sf[12%8*2*n  ]'fm 0|m1
l:&/#'s:(s0;s1;s2)
"/tmp/a.wav"1:wb bs cs l#'s;play[]
\\