diff --git a/app/Main.hs b/app/Main.hs
index ebbf540..f2152a0 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -168,7 +168,7 @@ main = do
     c <- getCurrentTime
     let day = round (diffUTCTime c startDate / nominalDay)
     putStrLn $ "wordle " ++ show day ++ "\n"
-    getWord (T.unpack $ randomWords !! day) 1 (map T.unpack validWords)
+    getWord (T.unpack $ randomWords !! (day `mod` length randomWords)) 1 (map T.unpack validWords)
   else do
     putStrLn "now you give it a try!\n"
     let randWord = map toLower $ getRandomElem g $ filter (\x -> length x == 5 && '\'' `notElem` x) (map T.unpack randomWords)