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