#lang racket

(provide
 (except-out (all-from-out racket) #%module-begin)

 ;; SYNTAX
 ;; -- augments the plain module body to say 'hello world'
 ;; -- print a quoted version of each form 
 (rename-out (my-module-begin #%module-begin)))

;; -----------------------------------------------------------------------------

(define-syntax (my-module-begin stx)
  (syntax-case stx ()
    [(_ e ...)
     #'(#%plain-module-begin (begin (displayln '(hello world 'e)) e) ...)]))

;; -----------------------------------------------------------------------------
(module reader syntax/module-reader
  racket-says-hello-world
  ;; the next three are needed 
  #:read
  read
  #:read-syntax
  read-syntax)