(define-library (nand2tetris jack record-types)
  (import
   (scheme base)
   (scheme write)

   (rnrs syntax-case (6))
   )
  (begin
    (define-syntax define-record-type-with-getters
      (lambda (stx)
        (syntax-case stx ()
          ((_ name fields ...)
           #'(define-record-type <a> (make-a) a?)))))

    (define-record-type-with-getters a b c) (newline)

    (display (make-a)) (newline)
    ))