Postgresql - Listar todas as sequences e seus próximos valores

DO $$
declare
sequencia record;
begin
for sequencia in
(SELECT * FROM information_schema.sequences)
loop
                --caso queira excluir alguma sequence da listagem
--if sequencia.sequence_name != 'schema.sequence_name' then
raise notice 'Sequence: %, Nextval: %', sequencia.sequence_name,                        nextval(sequencia.sequence_schema || '.' || sequencia.sequence_name);
--end if;
end loop;
end$$;