diff --git a/br/main.rkt b/br/main.rkt
index 2a179f7..b3d9db6 100644
--- a/br/main.rkt
+++ b/br/main.rkt
@@ -15,5 +15,11 @@
 
 ;; todo: activate at-exp reader by default
 
+(define (remove-blank-lines strs)
+  (filter (λ(str) (regexp-match #px"\\S" str)) strs))
+
+(provide remove-blank-lines)
+
+
 (module reader syntax/module-reader
   #:language 'br)
\ No newline at end of file