type storage = int

let%entry main (p:int) storage =
  (list [] : operation list , p + storage)