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