countAlive :: Generation -> Int
countAlive (Generation _ _ _ _ brd) = U.sum brd
countAlive :: Generation -> Int
countAlive (Generation _ _ _ _ brd) = U.sum brd
countAlive (Generation _ _ _ _ brd) = U.sum brd