1type t = [ `Stop | `Loading | `Run ] 2 3let to_int : t -> int = function 4 | `Stop -> 1 5 | `Loading -> 2 6 | `Run -> 3