(bind-func AudioBuffer (lambda (frames chans samplerate) (let ((dat:SAMPLE* (alloc (* frames chans)))) (AudioBuffer_z (String "") 0 frames chans dat samplerate 0 0 60 0.0))))