;; we need a callback function - which just generates white noise at
;; this stage
(bind-func audio_callback:PaStreamCallback
(lambda (input output frameCount timeInfo statusFlags userData)
(doloop (i (* frameCount 2))
(pset! (convert output float*) i (random 0.1)))
;; to ensure the callback continues to be called
paContinue))