create 1000 users in oracle quickly

SQL> create or replace procedure create_user
2 is
3 i integer:=0;
4 begin
5 for i in 1..1000 loop
6 execute immediate 'create user test00a'||i||' identified by '||'test00'||'12345 default tablespace users temporary tablespace temp account unlock';
7 end loop;
8 end ;
9 /

Procedure created.

SQL> exec create_user;

PL/SQL procedure successfully completed.

SQL> select count(*) from dba_users;

COUNT(*)
----------
2029