[CM] txt file I/O

[bil at ccrma.Stanford.EDU]

Here's one way:

(call-with-output-file "test.data"
   (lambda (port)
     (let ((gen (make-file->sample "myMono.wav")))
       (do ((i 0 (+ i 1)))
	  ((= i 128))
	(format port "~%~D: file->sample output:  ~F" i (file->sample gen 
i))))))