type storage = int;

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