let size t = List.fold_left ~f:(fun ans v -> ans + Range.size v) ~init:0 t