lied in the last commit, this time its true

src/Main.hs

@@ -193,7 +193,7 @@ runAutomata :: Space CellState -> Int -> Int -> IO ()
 runAutomata s 0 w = putStrLn $ concat $ map show $ boundw w s
 runAutomata s n w = do
   putStrLn $ concat $ map show $ boundw w s
-  runAutomata (step rule3 s) (n - 1) w
+  runAutomata (step rule s) (n - 1) w
 
 main :: IO ()
 main = do