lang/teachpack-defun.ss
(module teachpack-defun mzscheme
  (provide teachpack-defun)
  (define-syntax (teachpack-defun stx)
    (syntax-case stx ()
      [(_ f (x ...) e)
       #'(define (f x ...) e)])))