(bind-func pa_print_devices
(lambda ()
(let ((ndev (Pa_GetDeviceCount)))
(println "Portaudio: found" ndev "devices")
(doloop (i ndev)
(println "---- device" i " ----")
(println (Pa_GetDeviceInfo i))
(println)))))