let update_grid () =
    let next_grid = empty_grid () in
    for y = 0 to 9 do
        for x = 0 to 9 do
            next_grid.(y).(x) <- next_state x y
        done
    done;
    grid := next_grid ;;