CocoR/Test2/tests/q_arith.mod

MODULE QArith;
VAR x, y : INTEGER; ExitCode : INTEGER;
BEGIN
  x := 1 + 2 * 3 - 4 DIV 2;
  y := (x + 10) * 2 MOD 7;
  ExitCode := x + y
END QArith.