diff --git a/src/ludus/grammar.clj b/src/ludus/grammar.clj
index 2a10612..eafaa33 100644
--- a/src/ludus/grammar.clj
+++ b/src/ludus/grammar.clj
@@ -255,45 +255,4 @@
 
 (def script (order-0 :script [nls?
                               (one+ script-line)
-                              (quiet :eof)]))
-
-
-;;;;;;;;;;;;;;;; REPL CRUFT
-
-;;TODO: fix forward declaration errors
-
-
-(def eg (:tokens (scan/scan
-                   "
-                   test \"foo\" bar
-                    "
-                   )))
-
-
-
-(def result (apply-parser script eg))
-
-
-(defn report [node]
- 	(when (fail? node) (err-msg node))
- 	node)
-
-(defn clean [node]
- 	(if (map? node)
-  		(-> node
-   			(report)
-   			(dissoc 
-    				:status 
-    				:remaining 
-    				:token)
-   			(update :data #(into [] (map clean) %)))
-  		node))
-
-(defn tap [x] (println "\n\n\n\n******NEW PARSE\n\n:::=> " x "\n\n") x)
-
-(def my-data (-> result 
-              	clean 
-              	tap
-              	))
-
-my-data
\ No newline at end of file
+                              (quiet :eof)]))
\ No newline at end of file