(bind-func print
"specialised print function for AudioBuffer*"
(lambda (ab:AudioBuffer*)
(if (null? ab)
(printf "<AudioBuffer 0x0>")
(printf "<AudioBuffer %p
filepath: %s
playhead: %lld
frames: %lld
channels: %lld
data: %p
samplerate: %f
loop_start: %lld
loop_frames: %lld
root_frq: %lld
phase: %f>"
ab
(tref (tref ab 0) 1)
(tref ab 1)
(tref ab 2)
(tref ab 3)
(tref ab 4)
(tref ab 5)
(tref ab 6)
(tref ab 7)
(tref ab 8)
(tref ab 9)))
void))