let string_of_sort s = match s with | Alpha -> "alpha" | Grade d -> (Printf.sprintf "grade%s" (pa_to_string d)) | Team t -> (Printf.sprintf "team%s" (pa_to_string t)) | No_order -> "_"