diff --git a/src/expand/core.clj b/src/expand/core.clj
index 230acf6..a0622de 100644
--- a/src/expand/core.clj
+++ b/src/expand/core.clj
@@ -405,6 +405,16 @@
                      vec)
                 :else decl)))))
 
+(defn -main []
+  (clojure.pprint/with-pprint-dispatch
+    clojure.pprint/code-dispatch
+    (-> (slurp *in*)
+        (scm/read-syntax :library? true :throw? true)
+        expand-library
+        library-syntax->datum
+        library->datum
+        clojure.pprint/pprint)))
+
 (comment
   (-> "t.scm"
       slurp
diff --git a/t.scm b/t.scm
index 4958c82..0f3061d 100644
--- a/t.scm
+++ b/t.scm
@@ -5,4 +5,5 @@
                          ((_ test body ...)
                           (if test (begin body ...))))))
       (when #t
-        (display "blah")))))
+        (display "blah")
+        (newline)))))