Dive deeper into macros: stackerizer

#lang br/quick­lang
(provide + *)

(define-macro (stack­er­izer-mb EXPR)
  #'(#%module-begin
     (for-each displayln (reverse (flatten EXPR)))))
(provide (rename-out [stack­er­izer-mb #%module-begin]))

(define-macro (define-ops OP ...)
  #'(begin
      (define-macro-cases OP
        [(OP FIRST) #'FIRST]
        [(OP FIRST NEXT (... ...))
         #'(list 'OP FIRST (OP NEXT (... ...)))]) 
      ...))

(define-ops + *)

#lang s-exp "stack­er­izer.rkt"
(* 3 (+ 8 4))