A module language that reverses s-expressions.

reverse.rkt

#lang racket

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

(define-syntax-rule (module-begin expr ...)
  (#%module-begin
   (eval (reverse-all '(expr ... begin)))))

(define (reverse-all item)
  (if (list? item)
      (reverse (map reverse-all item))
      item))