let neighbourhoods =
    Array.map (fun n ->
      n |> Array.to_list |> remove_elements Params.prng Params.destroy_probability |> Array.of_list)
    neighbourhoods