let
id =
function
|
`
Target
t
->
t.id
|
`
Pointer
{
Target_pointer
. original }
->
original.id