type storage_t is timestamp

type message_t is unit -> list (operation)
type default_pt is unit
type call_pt is message_t
type contract_return_t is list (operation) * storage_t

type entry_point_t is
| Call of call_pt
| Default of default_pt

function call (const p : call_pt; const s : storage_t) : contract_return_t is
  block {
    if s >= now then failwith ("Contract is still time locked") else skip;
    const message : message_t = p;
    const ret_ops : list (operation) = message (unit)
  } with (ret_ops, s)

function default (const p : default_pt; const s : storage_t) :
  contract_return_t is
  ((nil : list (operation)), s)

function main(const param : entry_point_t; const s : storage_t) :
  contract_return_t is
  case param of
    Call    (p) -> call (p,s)
  | Default (p) -> default (p,s)
  end