diff --git a/day4/Main.hs b/day4/Main.hs
index 27b054b..52d8cba 100644
--- a/day4/Main.hs
+++ b/day4/Main.hs
@@ -76,4 +76,6 @@ main = do
     args <- getArgs
     (fp:_) <- return args
     resPart1 <- part1 fp
+    resPart2 <- part2 fp
     putStrLn $ "Solution (Part 1) : " ++ show resPart1
+    putStrLn $ "Solution (Part 2) : " ++ show resPart2