awk sounds

#!/bin/sh
mawk '
function wl() {
    rate = 32000
    return (rate / 160) * 2^(-int(rand() * 10) / 5)
}

BEGIN {
    srand()
    wla = wl()
    while(1) {
        wlb = wla
        wla = wl()
        if (wla == wlb)
            wla *= 2
        d = (rand() * 10 + 5) * rate / 4
        a = b = 0
        c = 128
        ca = 40 / wla
        cb = 20 / wlb
        de = rate / 10
        di = 0
        for (i = 0; i < d; i++) {
            a++
            b++
            di++
            c += ca + cb
            if (a > wla) {
                a = 0
                ca = -ca
            }
            if (b > wlb) {
                b = 0
                cb = -cb
            }
            if (di > de) {
                di = 0
                ca *= 0.9
                cb *= 0.9
            }
            printf("%c", (c - 127) * 4)
        }
        c = int(c)
        while(c != 128) {
            c < 128 ? c++ : c--
            printf("%c", (c - 127) * 4)
        }
    }
}' |aplay -r 44100

#oneline:
# mawk 'function wl(){rate=32000;return(rate/160)*(0.87055^(int(rand()*10)))};BEGIN{srand();wla=wl();while(1){wlb=wla;wla=wl();if(wla==wlb){wla*=2;};d=(rand()*10+5)*rate/4;a=b=0;c=128;ca=40/wla;cb=20/wlb;de=rate/10;di=0;for(i=0;i<d;i++){a++;b++;di++;c+=ca+cb;if(a>wla){a=0;ca*=-1};if(b>wlb){b=0;cb*=-1};if(di>de){di=0;ca*=0.9;cb*=0.9};printf("%c",(c-127)*4)};c=int(c);while(c!=128){c<128?c++:c--;printf("%c",(c-127)*4)};};}' |aplay -r 44100