(define-syntax define-structure (syntax-rules (define-structure) ((define-structure name . rest) (define name (structure (quote name) . rest)))))
https://files.mastodon.social/media_attachments/files/110/884/672/570/836/188/original/dfe644dbb1cbaed0.png