CREATE OR REPLACE PROCEDURE P AS
	N NUMBER;
	EXT NUMBER;
BEGIN
	N := 10000;
	EXT := 1;
	WHILE EXT < 3 LOOP
		FOR I IN 1..100 LOOP
			N := N + 1;
			INSERT INTO R VALUES(N, 'abcdefghijklmnopqrstuvwxyz');
		END LOOP;
		COMMIT;
		SELECT COUNT(*) INTO EXT
			FROM USER_EXTENTS WHERE SEGMENT_NAME = 'R';
	END LOOP;
END;
/