diff --git a/app/Main.hs b/app/Main.hs
index 6966ae6..a93fb36 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -1,6 +1,7 @@
 import Lox.Scanner
 import Lox.Parser
 import Lox.Interpreter
+import System.IO
 
 run :: String -> IO ()
 run source = print result
@@ -9,4 +10,4 @@ run source = print result
           tokens = scanTokensFromSource source
 
 main :: IO ()
-main = getLine >>= run 
+main = putStr ">> " >> hFlush stdout >> getLine >>= run