[@@@ocamlformat "break-cases=nested"]

let f x =
  match x with
  | `A ->
      ()
  | `B ->
      (* Proin ipsum nunc, finibus et finibus, semper et mi. Aenean *)
      (* pretium fermentum tellus, a faucibus sagittis et. Cras non *)
      ()
