samer@0: ; shows how to record from audio input to standard output in WAV format
samer@0: (load "audio.scm")
samer@0: (load "lineout.scm")
samer@0: 
samer@0: (put "regulated" #f)
samer@0: (define fmt (mono 44100))
samer@0: (lineout (filesnk System.out$ fmt) (linein (linesrc fmt) 2048 2048))
samer@0: (expose)
samer@0: (start)