type storage_ is timestamp
function main (const p : unit; const s : storage_) :
list (operation) * storage_ is ((nil: list (operation)), now)