1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
type t =
| Low
| Medium
| High
| Xhigh
| Max
let to_string = function
| Low -> "low"
| Medium -> "medium"
| High -> "high"
| Xhigh -> "xhigh"
| Max -> "max"
let equal a b =
match a, b with
| Low, Low | Medium, Medium | High, High | Xhigh, Xhigh | Max, Max -> true
| (Low | Medium | High | Xhigh | Max), (Low | Medium | High | Xhigh | Max) -> false