1 files changed, 4 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 354a09c..2b40645 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -8,7 +8,8 @@ import SPL.Parse
 
 main :: IO ()
 main = do
-  putStrLn $ show result
+  contents <- readFile "test/example1.spl"
+  putStrLn $ (show . result) contents
   where
-    result :: Maybe [Token]
-    result = lex "+-123"
+    result :: String -> Maybe [Token]
+    result = lex