let normalizer =
    let ndc = Measure.Light_cones.non_discarded_cell length discard_cell in
    let light_cone = light_cones.(ndc) in
(*     let light_cone_weight = *)
(*       let result = ref 0 in *)
(*       for i=0 to depth do result := !result + Array.length light_cone.(i) done; *)
(*       float !result in *)
    let light_cone_weight = float future_depth in
    let nb_states = Array.length Auto.states |> float in
    let range = Array.length light_cone.(perturbation_range) |> float in
    nb_states ** range *. light_cone_weight