2020-02-10 19:27:58 +01:00
|
|
|
type t is int
|
2019-05-12 20:56:22 +00:00
|
|
|
|
2020-02-10 19:27:58 +01:00
|
|
|
function main (const p : int ; const s : t) : list (operation) * int is
|
|
|
|
|
block {
|
|
|
|
|
skip
|
|
|
|
|
} // skip is a do nothing instruction, needed for empty blocks
|
2019-05-12 20:56:22 +00:00
|
|
|
with ((nil : list(operation)), p + s)
|
