Here's my entry in this contest: (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)))))) In the Scheme community this code would be considered heavily commented.