added stackerizer

stackerizer/stackerizer-test.rkt

@@ -0,0 +1,2 @@
+#lang s-exp "stackerizer.rkt"
+(+ 1 2 3 4 (* 1 2 3 (+ 1)))

stackerizer/stackerizer.rkt

@@ -0,0 +1,17 @@
+#lang br/quicklang
+(provide + *)
+
+(define-macro (stackerizer-mb EXPR)
+  #'(#%module-begin
+    (for-each displayln (reverse (flatten EXPR)))))
+(provide (rename-out [stackerizer-mb #%module-begin]))
+
+(define-macro (define-op OP)
+  #'(define-macro-cases OP
+      [(OP FIRST) #'FIRST]
+      [(OP FIRST NEXT (... ...))
+       #'(list 'OP FIRST (OP NEXT (... ...)))]))
+
+(define-op +)
+(define-op *)
+