15 lines
330 B
Plaintext
15 lines
330 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)
|