(set! (auto-resize) #f)
(set! (selection-creates-region) #f)
(set! (default-output-srate) 44100)
(set! (default-output-type) mus-riff)
(set! (default-output-format) mus-lshort)

(load "/usr/local/lib/snd/play.scm")
;(load "/usr/local/lib/snd/extensions.scm")


(define (loop-marks m1 m2)
   (loop-between-marks m1 m2 8192))


(define (save-region-wav reg name)
  (save-region reg name mus-riff mus-lshort))


(show-listener)