type storage = int;

let main = 
  ((p, s): (int, storage)): (list(operation), storage) => 
    ([] : list(operation), p + s);