let to_list t = List.concat (List.map ~f:Range.to_list t)