type c = A

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