12 lines
268 B
Plaintext
12 lines
268 B
Plaintext
type parameter is unit
|
|
|
|
type storage is timestamp
|
|
|
|
type return is list (operation) * storage
|
|
|
|
function main (const p : parameter; const s : storage)
|
|
: return is
|
|
block {
|
|
var stamp : timestamp := ("badtimestamp" : timestamp)
|
|
} with ((nil : list (operation)), stamp)
|