diff --git a/2019/day9/day9.hs b/2019/day9/day9.hs
index 4189e86..28a2fbc 100644
--- a/2019/day9/day9.hs
+++ b/2019/day9/day9.hs
@@ -17,7 +17,7 @@ main = do
     print $ L.reverse out
 
 tapePreprocess :: TapeSection -> TapeSection
-tapePreprocess t = (V.++) t $ V.replicate 99999 0
+tapePreprocess t = (V.++) t $ V.replicate 150 0
 
 opLength :: Integer -> Integer
 opLength x