diff --git a/beautiful-racket-demo/bf-demo/expander-slow.rkt b/beautiful-racket-demo/bf-demo/expander-slow.rkt
index 57b301d..f9abb0a 100644
--- a/beautiful-racket-demo/bf-demo/expander-slow.rkt
+++ b/beautiful-racket-demo/bf-demo/expander-slow.rkt
@@ -45,12 +45,14 @@
 (define (lt arr ptr) (list arr (sub1 ptr)))
 
 (define (plus arr ptr)
-  (list (set-current-byte arr ptr (add1 (current-byte arr ptr)))
-        ptr))
+  (list
+   (set-current-byte arr ptr (add1 (current-byte arr ptr)))
+   ptr))
 
 (define (minus arr ptr)
-  (list (set-current-byte arr ptr (sub1 (current-byte arr ptr)))
-        ptr))
+  (list
+   (set-current-byte arr ptr (sub1 (current-byte arr ptr)))
+   ptr))
 
 (define (period arr ptr)
   (write-byte (current-byte arr ptr))
diff --git a/beautiful-racket-demo/bf-demo/expander.rkt b/beautiful-racket-demo/bf-demo/expander.rkt
index 6054e2e..23a5105 100644
--- a/beautiful-racket-demo/bf-demo/expander.rkt
+++ b/beautiful-racket-demo/bf-demo/expander.rkt
@@ -44,12 +44,14 @@
 (define (lt arr ptr) (list arr (sub1 ptr)))
 
 (define (plus arr ptr)
-  (list (set-current-byte arr ptr (add1 (current-byte arr ptr)))
-        ptr))
+  (list
+   (set-current-byte arr ptr (add1 (current-byte arr ptr)))
+   ptr))
 
 (define (minus arr ptr)
-  (list (set-current-byte arr ptr (sub1 (current-byte arr ptr)))
-        ptr))
+  (list
+   (set-current-byte arr ptr (sub1 (current-byte arr ptr)))
+   ptr))
 
 (define (period arr ptr)
   (write-byte (current-byte arr ptr))