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