lama_byterun/regression/test041.expr
2018-05-16 16:50:36 +03:00

11 lines
No EOL
171 B
Text

fun f (a) {
case a of
`a (x, y, z) -> write (x + y + z)
| `b (x, y, z) -> write (x + y + z)
esac
}
x := read ();
f (`a (100, 200, 300));
f (`b (500, 600, 700))