(* This a fairly easy test *)
(* No procs, no units *)
(* No arrays  -- lots of expressions *)

program no_units;

const f1 = 57;
      f2 = 5 ;
      f3 = 6;
      true = 1;
      false = 0 ;

var i1, i2, i3 :(*unit *)number;
    b1,					(* just for fun *)
    b2,
    b3
      : number;

begin (* main part of no_units
	test *)

	i1 := 10+15*5/4 - (16 - 2);
	i2 := 0-10;
	i3 := f1 % (i2 * (true - false));
	b1 := false;
	b2 := true ;
	if i1 <= i2 then b3 := b1 + (b2 * false) 
	else i1 := i2 + 15 * i3 / 4 - (16 - 2);

	(* while f1 <> f2 do ; *)

end (* no units *).