-- input = ".^^.^.^^^^"
input = "^.^^^.^..^....^^....^^^^.^^.^...^^.^.^^.^^.^^..^.^...^.^..^.^^.^..^.....^^^.^.^^^..^^...^^^...^...^."
-
main :: IO ()
main = do
part1
part2
-
part1 :: IO ()
-- part1 = putStrLn $ unlines $ map (showRow) $ take 10 $ iterate nextRow $ readRow input
part1 = print $ length $ filter (not) $ concat $ take 40 $ iterate nextRow $ readRow input