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