(definstrument print-sound (file beg) (let ((f (clm-open-input* file))) (when f (unwind-protect (let* ((st (floor (* beg sampling-rate))) (dur (snd-duration f)) (rdA (make-readin f)) (rdB (if (and (stereo f) (stereo *current-output-file*)) (make-readin f :channel :B))) (nd (+ st (floor (* sampling-rate dur))))) (run (loop for i from st to nd do (clm-print "~A " (readin rdA)) (if rdB (clm-print "~%channel b: ~A" (readin rdB)))))) (close-input f)))))