type c = A | B

let main : int = match (A<>) { A<> -> 0 | B<> -> 1 }