diff --git a/app/Main.hs b/app/Main.hs
index e6f83b1..b54a46c 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -2,6 +2,7 @@ module Main (main) where
 
 import Control.Monad.Combinators.Expr
 import Data.Void (Void)
+import System.Environment
 import Text.Megaparsec
 import Text.Megaparsec.Char as C
 import Text.Megaparsec.Char.Lexer as L
@@ -46,6 +47,7 @@ expr = makeExprParser term table
 parseExpr :: String -> Either (ParseErrorBundle String Void) Expr
 parseExpr = parse (C.space *> expr <* eof) ""
 
-main :: IO ()
+-- main :: IO ()
 main = do
-  print $ parseExpr "2+3* 4"
\ No newline at end of file
+  input <- fmap head getArgs
+  parseTest expr input
\ No newline at end of file