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