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
|