如何简化这个ocaml模式匹配代码？

match x with
| Some _ -> "x is Some"
| None -> "x is None"

match x with
| Some y -> "x is Some " ^ string_of_int y
| None -> "x is None"

match x with
| Some 0 | None -> "x is either Some 0 or None"
| Some y -> "x is Some " ^ string_of_int y

match x with
| Some (x, y) -> "x is Some (" ^ string_of_int x ^ ", " ^ string_of_int y ^ ")"
| None -> "x is None"

match x, y with
| Some x, Some y -> "x and y are both Some"
| Some x, None -> "x is Some and y is None"
| None, Some y -> "x is None and y is Some"
| None, None -> "x and y are both None"

match x with
| Some y when y > 0 -> "x is Some and y is positive"
| Some y -> "x is Some and y is non-positive"
| None -> "x is None"