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