diff --git a/Main.hs b/Main.hs
index 4596dfb..bbd5eec 100644
--- a/Main.hs
+++ b/Main.hs
@@ -9,6 +9,7 @@ module Main where
 import Data.List
 import Data.Maybe
 import Proj2
+import System.IO (hFlush, stdout)
 
 -- | Guess the given target, counting and showing the guesses.
 guessTest :: [Pitch] -> IO ()
@@ -39,5 +40,6 @@ toChord = fromJust . mapM toPitch . words
 main :: IO ()
 main = do
   putStr "Target chord (3 pitches separated by spaces): "
+  hFlush stdout
   text <- getLine
   guessTest $ toChord text