FUNC PARSE,EXPR,AEXPR,MEXPR,TERM
VAR T,VALUE
BEGIN
  T:=TOKEN()
  DO {
    PARSE()
  } WHILE(C=255)
END

FUNC
PARSE()
VAR D
BEGIN
    EXPR()
END

FUNC
EXPR()
VAR D
BEGIN
    AEXPR()
END

FUNC
AEXPR()
VAR D
BEGIN
    MEXPR()
    CASE T OF
     '-' { ... }
     '+' { ... }
    OTHERWISE {}
END

FUNC
AEXPR()
VAR D
BEGIN
    TERM()
    CASE T OF
     '-' { ... }
     '+' { ... }
    OTHERWISE {}
END

FUNC
TERM()
VAR D
BEGIN
    TOKEN()
    CASE KIND OF
     '0' { ... }
     'v' { ... }
    OTHERWISE {}
END