type storage = int * int

let%entry main (n: int) storage =
  let x : int * int =
    let x : int = 7
    in x + n, storage.(0) + storage.(1)
  in (([] : operation list), x)