let ranges s = List.rev (rev_ranges s)