diff --git a/beautiful-racket-demo/atomic-taco-demo/main.rkt b/beautiful-racket-demo/atomic-taco-demo/main.rkt
index 010626d..45608a9 100644
--- a/beautiful-racket-demo/atomic-taco-demo/main.rkt
+++ b/beautiful-racket-demo/atomic-taco-demo/main.rkt
@@ -1,4 +1,4 @@
-#lang racket
+#lang br
 (provide #%top-interaction #%module-begin
          (rename-out [my-datum #%datum]
                      [my-datum #%top]
diff --git a/beautiful-racket-demo/conjunction-demo/main.rkt b/beautiful-racket-demo/conjunction-demo/main.rkt
index 58149bd..73f384e 100644
--- a/beautiful-racket-demo/conjunction-demo/main.rkt
+++ b/beautiful-racket-demo/conjunction-demo/main.rkt
@@ -20,7 +20,7 @@
     [(string? x) "whee"]
     [else 'kaboom]))
 
-(define-macro (dsl-module-begin EXPR ...)
+(define-macro (my-module-begin EXPR ...)
   #'(#%module-begin
      (convert-expr 'EXPR) ...))
-(provide (rename-out [dsl-module-begin #%module-begin]))
+(provide (rename-out [my-module-begin #%module-begin]))
diff --git a/beautiful-racket-demo/conjunction-demo/test.rkt b/beautiful-racket-demo/conjunction-demo/test.rkt
index 4930d78..2eb6b12 100644
--- a/beautiful-racket-demo/conjunction-demo/test.rkt
+++ b/beautiful-racket-demo/conjunction-demo/test.rkt
@@ -1,4 +1,4 @@
 #lang conjunction-demo
  
 "hello world"
-(+ 1 (* 2 (- 3)))
\ No newline at end of file
+(+ 1 (* 2 (- x)))
\ No newline at end of file
diff --git a/beautiful-racket-demo/expand-only-demo/main.rkt b/beautiful-racket-demo/expand-only-demo/main.rkt
index 3ffd70c..ba917f4 100644
--- a/beautiful-racket-demo/expand-only-demo/main.rkt
+++ b/beautiful-racket-demo/expand-only-demo/main.rkt
@@ -7,7 +7,7 @@
     [(string? x) "whee"]
     [else 'kaboom]))
 
-(define-macro (dsl-module-begin EXPR ...)
+(define-macro (my-module-begin EXPR ...)
   #'(#%module-begin
      (convert-expr 'EXPR) ...))
-(provide (rename-out [dsl-module-begin #%module-begin]))
+(provide (rename-out [my-module-begin #%module-begin]))
diff --git a/beautiful-racket-demo/expand-only-demo/test.rkt b/beautiful-racket-demo/expand-only-demo/test.rkt
index a50e12f..5b42da7 100644
--- a/beautiful-racket-demo/expand-only-demo/test.rkt
+++ b/beautiful-racket-demo/expand-only-demo/test.rkt
@@ -1,4 +1,4 @@
 #lang s-exp expand-only-demo
  
 "hello world"
-(+ 1 (* 2 (- 3)))
\ No newline at end of file
+(+ 1 (* 2 (- x)))
\ No newline at end of file
diff --git a/beautiful-racket-demo/injunction-demo/main.rkt b/beautiful-racket-demo/injunction-demo/main.rkt
new file mode 100644
index 0000000..967c3f7
--- /dev/null
+++ b/beautiful-racket-demo/injunction-demo/main.rkt
@@ -0,0 +1,18 @@
+#lang br
+(provide #%top-interaction #%module-begin
+         (rename-out [my-datum #%datum]
+                     [my-datum #%top]
+                     [my-app #%app]))
+
+(define-macro (my-datum . THING)
+  (define datum (syntax->datum #'THING))
+  (cond
+    [(string? datum) #'"whee"]
+    [(number? datum) #'42]
+    [else #''kaboom]))
+
+(define-macro (my-app FUNC . ARGS)
+  #'(list FUNC . ARGS))
+
+(module reader syntax/module-reader
+  injunction-demo)
\ No newline at end of file
diff --git a/beautiful-racket-demo/injunction-demo/test.rkt b/beautiful-racket-demo/injunction-demo/test.rkt
new file mode 100644
index 0000000..29c4131
--- /dev/null
+++ b/beautiful-racket-demo/injunction-demo/test.rkt
@@ -0,0 +1,4 @@
+#lang injunction-demo
+
+"hello world"
+(+ 1 (* 2 (- x)))
\ No newline at end of file
diff --git a/beautiful-racket-demo/read-only-demo/test.rkt b/beautiful-racket-demo/read-only-demo/test.rkt
index 3966d68..212fac3 100644
--- a/beautiful-racket-demo/read-only-demo/test.rkt
+++ b/beautiful-racket-demo/read-only-demo/test.rkt
@@ -1,4 +1,4 @@
 #lang read-only-demo
  
 "hello world"
-(+ 1 (* 2 (- 3)))
\ No newline at end of file
+(+ 1 (* 2 (- x)))
\ No newline at end of file