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