program foo ;
i := 0 ;
begin
  while i do
    begin
      i := 42 ;
      i := i + 1 ;
    end ;  
end .
