Bug: begin end with nested application

[EmileTrotignon]

let f () =
  f
    (g a begin fun () ->
       let x = y in
       z
    end )

is formatted into

let f () =
  f
    (g a ) begin fun () ->
        let x = y in
        z
      end