let string_of_range = function |`Hi v -> Printf.sprintf "%s < ." v |`Lo v -> Printf.sprintf ". < %s" v |`Eq v -> Printf.sprintf "= %s" v |`In (v1,v2) -> Printf.sprintf "%s < . < %s" v1 v2