diff --git a/app/Main.hs b/app/Main.hs
index eea963f..829140a 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -15,7 +15,8 @@ main = do
     let response = parseLines $ unlines results
 
     case withOneOccurrence $ withOneFile response of
-        Right termMatchSet ->
+        Right termMatchSet -> do
+            clearScreen
             mapM_ printMatchPair $ listFromMatchSet termMatchSet
         Left e ->
             printParseError e