type t is int

function main (const p : int; const s : t) : list (operation) * int is
  block {
    skip
  } // skip is a do nothing instruction, needed for empty blocks
  with ((nil : list (operation)), p+s)