let
get_v : tt
->
V
.t =
fun
v
->
Obj
.obj (
Obj
.field (
Obj
.repr v) 0)