while1_test.pl

var x;


procedure foo()
begin
end;

begin
  x := 1;
  while x < 100 do begin x := x + 1;  end
  !x;
  while x > 0  do begin x := x - 1;  end
  !x;
  while x < 1  do begin x := x - 1;  end
  !x;
end.