let
wrap_ptr p =
Some
(offsetmap_of_value ~typ:intPtrType p)