nextGeneration :: Generation -> Generation
nextGeneration gen@(Generation w h cw gps brd) =
    Generation w h cw gps (U.imap (nextCell gen) brd)
nextGeneration :: Generation -> Generation
nextGeneration gen@(Generation w h cw gps brd) =
    Generation w h cw gps (U.imap (nextCell gen) brd)
nextGeneration gen@(Generation w h cw gps brd) =
    Generation w h cw gps (U.imap (nextCell gen) brd)