type storage = int;

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