type storage = unit

let main(p : unit) storage =
  let storage = unit
  in (([] : operation list), storage)