14 lines
278 B
Plaintext
14 lines
278 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
|