type storage_ is timestamp

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