let
(point_to :
'
a
->
'
a pointer) =
fun
x
->
ref (
Some
x)