10 lines
252 B
Plaintext
10 lines
252 B
Plaintext
type storage = unit
|
|
|
|
let main (p, store : unit * storage) : operation list * storage =
|
|
let n =
|
|
(fun (f : int * int -> int) (x : int) (y : int) -> f (y,x))
|
|
(fun (x : int) (y : int) -> x + y)
|
|
0
|
|
1
|
|
in ([] : operation list), store
|