diff --git a/app/Main.hs b/app/Main.hs
index 4de7a5b..24ceae4 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -34,6 +34,7 @@ main :: IO ()
 main =
     printHeader
         >> getArgs
-        >>= \case
+        >>= (\case
             ["all"] -> runAll solutions
-            _ -> runAll [last solutions]
\ No newline at end of file
+            _ -> runAll [last solutions])
+        >> printFooter
\ No newline at end of file
diff --git a/src/Lib.hs b/src/Lib.hs
index a1c3737..46c0630 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -6,10 +6,11 @@ module Lib (
     days,
     printDR,
     printHeader,
+    printFooter,
 ) where
 
 import Common (Day (..), DayResult)
-import Print (printDR, printHeader)
+import Print
 
 import Days.D01 qualified as D01
 import Days.D02 qualified as D02
diff --git a/src/Print.hs b/src/Print.hs
index b6e01a6..28e8ca5 100644
--- a/src/Print.hs
+++ b/src/Print.hs
@@ -6,6 +6,9 @@ import Text.Printf (printf)
 printHeader :: IO ()
 printHeader = putStrLn "[ Day ]------(1)-----+------(2)-----"
 
+printFooter :: IO ()
+printFooter = putStrLn "[-----]--------------+--------------"
+
 printDR :: Int -> DayResult -> IO ()
 printDR day (Left errorString) = printf "[  %2d ] ====== PARSER ERROR =======\n%s" day errorString
 printDR day (Right (sol1, sol2)) =