12 lines
328 B
Plaintext
12 lines
328 B
Plaintext
type parameter is unit
|
|
type storage is int
|
|
type return is list (operation) * storage
|
|
|
|
function main(const p : parameter; const s : storage) : return is
|
|
((nil : list(operation)), s+1)
|
|
|
|
function main (const p : parameter; const s : storage) : return is
|
|
block {
|
|
const ret : return = main (p, s)
|
|
} with (ret.0, ret.1 + 1)
|