let
pack tag v = ((dyn_tag tag), (
Obj
.repr v))