2020-02-10 19:27:58 +01:00
|
|
|
type parameter is unit
|
|
|
|
|
type storage is int
|
|
|
|
|
type return is list (operation) * storage
|
2020-01-06 18:51:43 +01:00
|
|
|
|
2020-02-10 19:27:58 +01:00
|
|
|
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)
|
2020-02-20 05:25:30 +00:00
|
|
|
} with (ret.0, ret.1 + 1)
|
