#lang scheme/base (define-syntax define/provide (syntax-rules () ((_ (a b ...) c ...) (define/provide a (λ (b ...) c ...))) ((_ a b ...) (begin (define a b ...) (provide a))))) (provide define/provide)