type t is
Bar of int
| Baz
function main (const x : t) : int is
case x of
Bar (n) -> n
| Baz -> -1
end