;;; Extracting a WAVE file's 44-byte header.
;;;
;;; Reads excerpt0.wav
;;; Writes waveHeader.wav

(define p (open-file-input-port "excerpt0.wav"))
(define header (get-bytevector-n p 44))
(close-input-port p)

(define p (open-file-output-port "waveHeader.data"))
(put-bytevector p header)
(close-output-port p)

(exit)