let
find_player_in_role role_id =
fst
(
List
.find
(
fun
(_,b)
->
b=role_id)
!
Globals
.player_to_role)