randCell : Generator Cell
randCell =
    map
        (\b ->
            if b then
                Alive
            else
                Empty
        )
        Random.bool