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 -> "_"