let get_majors (po : t_po) n =
  try
    List.assoc n po
  with
    Not_found -> []