let role_table : (string * string) list ref = ref []