let
player_to_role = ref ([] : (int * int) list)