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