diff --git a/quad/quadwriter/lang.rkt b/quad/quadwriter/lang.rkt
new file mode 100644
index 00000000..86bf461f
--- /dev/null
+++ b/quad/quadwriter/lang.rkt
@@ -0,0 +1,7 @@
+#lang debug racket/base
+(require pollen/tag "lang-helper.rkt")
+(provide (except-out (all-from-out racket/base) #%module-begin))
+
+(define (doc-proc strs) (apply q strs))
+(make-module-begin doc-proc)
+
diff --git a/quad/quadwriter/main.rkt b/quad/quadwriter/main.rkt
index edc6f44b..0c3026f1 100644
--- a/quad/quadwriter/main.rkt
+++ b/quad/quadwriter/main.rkt
@@ -1,14 +1,11 @@
 #lang debug racket/base
-(require pollen/tag "lang-helper.rkt")
-(provide (except-out (all-from-out racket/base) #%module-begin))
-
-(define (doc-proc strs) (apply q strs))
-(make-module-begin doc-proc)
+(require "core.rkt")
+(provide (all-from-out "core.rkt"))
 
 (module reader racket/base
   (require "lang-helper.rkt")
   (provide (rename-out [rs read-syntax]) get-info)
-  (define rs (make-read-syntax 'quadwriter
+  (define rs (make-read-syntax 'quadwriter/lang
                                (λ (path ip)
                                  (for/list ([tok (in-port read ip)])
-                                   tok)))))
\ No newline at end of file
+                                           tok)))))
\ No newline at end of file