diff --git a/haskell/p7.hs b/haskell/p7.hs
index 4f03585..9d20d65 100644
--- a/haskell/p7.hs
+++ b/haskell/p7.hs
@@ -1,4 +1,4 @@
 import Lib (primes)
 
 main :: IO ()
-main = putStr $ show $ primes !! 10001
+main = putStr $ show $ primes !! (10001 - 1)