Coding styles

gistfile1.ml

match x with
| 1 ->
  (match y with
  | 1 -> Foo
  | 2 -> Bar)
| 2 ->

match x with
| 1 ->
  (match y with
  | 1 -> Foo
  | 2 -> Bar
  )
| 2 ->

match x with
| 1 -> (match y with
        | 1 -> Foo
        | 2 -> Bar)
| 2 ->

match x with
| 1 -> (
         match y with
         | 1 -> Foo
         | 2 -> Bar
       )
| 2 ->

match x with
| 1 ->
  (
    match y with
    | 1 -> Foo
    | 2 -> Bar
  )
| 2 ->

match x with
| 1 ->
  begin
  match y with
  | 1 -> Foo
  | 2 -> Bar
  end
| 2 ->

match x with
| 1 ->
  begin match y with
  | 1 -> Foo
  | 2 -> Bar
  end
| 2 ->

match x with
| 1 -> begin
    match y with
    | 1 -> Foo
    | 2 -> Bar
  end
| 2 ->

match x with
| 1 -> (
    match y with
    | 1 -> Foo
    | 2 -> Bar
  )
| 2 ->