% a test of most of the features of the langauge the program itself
% is totally meaningless, but should print out "42.0" at the end.
% if you get 42, there's a good chance you did everything right!

real_87_varNAME := 2.0 * (12.0 - 6.0) + 4.5;
X2222 := (real_87_varNAME - 0.5) / 4.0;
if 3 < 4 && 5 != 6 then
  _a := 5;
else
  _a := 17;
if 3 >= 3.01 || 5 == 7 then
  X2222 := X2222 + 10;
if _a > X2222 then NUM := X2222 * _a;
i := 70;
while i > 0 do begin
  NUM := NUM + 1;
  i := i - 7;
end
if !!!(i != 0) then NUM := NUM + 2;
while NUM < 10 do NUM := NUM + 1;
if NUM > 20 then
  if NUM > 30 then
    if NUM > 40 then
      NUM := NUM - 10;
    else
      NUM := NUM + 5;
  else begin
    NUM := real_87_varNAME - NUM;
  end
NUM := NUM - .5;
begin
  a := -2;
  a := a + 3;
NUM := NUM + a;
end

println(NUM + (6 - 1 - 1) + .5);