PROC p (VAL INT x, y, INT z)
  z := x + y
:

INT, INT FUNCTION two (VAL INT x)
  INT FUNCTION inner.func (VAL INT q)
    VALOF
      SKIP
      RESULT q - 1
  :
  VALOF
    SKIP
    RESULT inner.func (x), x + 1
:

INT FUNCTION f (VAL INT x, y)
  INT q:
  VALOF
    SEQ
      q := x
      q := q + y
    RESULT q
:

PROC test.expressions ()
  INT a:
  INT b:
  INT c:
  SEQ
    a := 1
    b := 2
    c := 17 + f (a, b)
    c := (42 * a) + (b - (72 / c))
    b, c := two (a)
    p (a, b, c)
: