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)