#lang scheme

(define-syntax (define-parameter-set stx)
  (syntax-case stx ()
    [(define-parameter-set name (p-name p-defn ...) ...)
     #'(begin
         (define p-name (make-parameter p-defn ...)) ...
         (define-struct name (p-name ...) #:prefab))]))