(use al alc openal)

;; this code does no error checking

(define device (alc:OpenDevice #f))
(define context (alc:CreateContext device #f))

(alc:MakeContextCurrent context)

(define buf1 (openal:load-buffer "example.wav"))
(define source1 (openal:make-source buf1))

(al:Sourcei source1 al:LOOPING 1)
(al:SourcePlay source1)

(read-line)

(alc:MakeContextCurrent #f)
(alc:DestroyContext context)
(alc:CloseDevice device)