10 lines
152 B
Plaintext
10 lines
152 B
Plaintext
type op =
|
|
| Add of int
|
|
| Sub of int
|
|
|
|
|
|
let main (p,s : int * op) : (operation list) * op =
|
|
match s with
|
|
| Add si -> Add si
|
|
| Sub si -> Sub si
|