[LAU] Library for simple audio programming

[Kjetil Matheussen]

Bill Schottstaedt:
> (call-with-output-file "test.ascii" (lambda (p)
>  (let ((r (make-readin "filename.wav")))
>    (do () ((= (mus-location r) (mus-length r)))
>      (format p "~A~%" (r))))))

Can't get my head around 'do'. Prefer this:

(call-with-output-file "test.ascii" (lambda (p)
   (let ((r (make-readin "filename.wav")))
     (while (< (mus-location r) (mus-length r))
       (format p "~A~%" (r))))))