diff --git a/src/Main.hs b/src/Main.hs
index fbfe0eb..911de75 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -18,7 +18,9 @@ main = getArgs >>= \case
        putStrLn "SYNTAX ERROR"
        putStrLn err
        exitFailure
-      Right prg -> compile prg
+      Right prg -> case compile prg of
+        Left err  -> putStrLn err
+        Right res -> putStrLn res