do $$
DECLARE
 d1 INT;
BEGIN
 d1:=1;
WHILE d1=1 LOOP
--d1:=(random() * 9000000)::INT;
 insert into t1 values (d1);
 commit;
END LOOP;
END;
$$ language plpgsql;

do $code$
  BEGIN
    perform dblink_connect_u('OneInsertSession', 'host=localhost' ||
                                            ' port='||inet_server_port()||
                                            ' dbname='||current_database()||
                                            ' user='||current_user
                             );
    LOOP
      perform dblink_send_query ('OneInsertSession', 'insert into t1 values (random() * 9000000);
' ||                                                 'commit;'
                                 );
  
    END LOOP;
    perform dblink_disconnect('OneInsertSession'); --До этого не дойдем, но для приличия пусть будет
  END;
$code$ language plpgsql;