diff --git a/Exercises/exercise-2/Solution.hs b/Exercises/exercise-2/Solution.hs
index 28410d0..1227d8c 100644
--- a/Exercises/exercise-2/Solution.hs
+++ b/Exercises/exercise-2/Solution.hs
@@ -169,7 +169,7 @@ fact x =
 -- 2
 
 --------------------
--- Exercise 3
+-- Exercise 4
 --------------------
 type Program = [(Integer, Integer)]
 type Input = Integer