有没有办法获得可变结构字段的“引用”

所以我有一个字段可变的记录类型:

type mpoint = { mutable x:int ; mutable y: int };;
let apoint = { x=3 ; y=4};;

我有一个函数,它需要一个'ref',并对它的内容做一些修改。 例如:

let increment x = x := !x+1;;
val increment : int ref -> unit = <fun>

有没有办法从可变字段中获取“引用”,以便我可以将其传递给函数。也就是说,我想做如下事情:

increment apoint.x;; (* increment value of the x field 'in place' *)
Error: This expression has type int but an expression was expected of type
         int ref

但上述方法不起作用,因为 apoint.x 返回字段的值,而不是其“ref”。如果是Gangang+或C++,我们可以使用 & 运算符以指示我们想要的是地址而不是字段的值: &apoint.x .

我们如何在Ocaml中做到这一点?

PS:是的,我知道以这种方式避免使用副作用可能更常见。但我保证,我这样做是有充分理由的,因为它比这个简化/人为的例子更有意义。