let treat_differences light_cone =
    let hamming_dist current_depth =
      let config = configurations.(current_depth) in
      let backup_config = backup_configurations.(current_depth) in
      let result = ref 0 in
      Array.iter
        (fun cell -> if config.(cell) <> backup_config.(cell) then incr result)
        light_cone.(current_depth);
      float !result in
    let result = ref 0. in
    for i=0 to depth do
(*       result := !result +. hamming_dist i *)
      result := !result +. hamming_dist i /. float (Array.length light_cone.(i)) (* !!opt *)
    done;
    !result