let
get_flags : tt
->
int =
fun
v
->
Obj
.tag (
Obj
.repr v)