let make_pointer ~from ~pointing_to = `Pointer { Target_pointer. original = from; pointer = pointing_to.id }