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