diff --git a/brag-lib/brag/examples/codepoints.rkt b/brag-lib/brag/examples/codepoints.rkt
index c8be6f9..f92afa7 100644
--- a/brag-lib/brag/examples/codepoints.rkt
+++ b/brag-lib/brag/examples/codepoints.rkt
@@ -1,5 +1,6 @@
 #lang brag
-start: "\101" ; A
-     | "\U0063" ; c
-     | "\u64" ; d
-     | "\x65" ; e
\ No newline at end of file
+start: A c d e
+A : "\101" ; A
+c : "\U0063" ; c
+d : "\u64" ; d
+e : "\x65" ; e
\ No newline at end of file
diff --git a/brag-lib/brag/test/test-codepoints.rkt b/brag-lib/brag/test/test-codepoints.rkt
new file mode 100755
index 0000000..751804f
--- /dev/null
+++ b/brag-lib/brag/test/test-codepoints.rkt
@@ -0,0 +1,6 @@
+#lang racket/base
+
+(require brag/examples/codepoints
+         rackunit)
+
+(check-equal? (parse-to-datum "Acde") '(start (A "A") (c "c") (d "d") (e "e")))