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