#lang racket/base


(define-syntax-rule (define-named-struct id racket-sux (fields ...))
  (begin
    (define-struct id (fields ...))
    (define racket-sux '(fields ...))))
(define-named-struct format names (bits rate channels byte_format matrix))

(provide (rename-out (make-format make)) format? names)