Ocaml 有没有办法让自动格式化程序保持一元代码的风格？

对于一元式OCaml代码，如下所示：

let program =
    let ( >>= ) m f = bind m f in
    get >>= fun s ->
    put (s + 1) >>= fun _ ->
    get >>= fun x ->
    return (x + 3)

有没有一种方法可以让代码格式化程序保留保持右边的

有趣的
s的风格

当我使用
ocamlformat
时，它会执行以下操作：

let program =
    let ( >>= ) m f = bind m f in
    get >>= fun s -> put (s + 1) >>= fun _ -> get >>= fun x -> return (x + 3)

看起来比
>=
好多了，但我还不能用