(* Test: simple integer arithmetic *)

MODULE Main;

VAR
  i: INTEGER;

BEGIN
  i := 55;
  i := i + i*3;
END Main.