declare
  i number := 1;
begin
  while (i < 100) loop
    dbms_output.put_line('i is ' || i);
    i := 2 * i;
  end loop;
end;
/