let range_of_diff d =
  match d with
    Add (_,i,_) -> range_of_index i
  | Delete (i2,i,_)
  | Change (i2,_,i,_) -> (range_of_index i) + (range_of_index i2)