let perturbed_next_step current_depth cells =
    let config = configurations.(current_depth) in
    let pred_config = configurations.(pred current_depth) in
    Array.iter
      (fun cell -> config.(cell) <- tr pred_config cell)
      cells