Re: bumping all sequence ids in a schema

I would like to bump all sequences in a schema by a specified increment.  Is there a stored proc or some method that is recommended? Currently I have sql that generates scripts to do this, but it seems to be an inelegant approach and before I rework it from the ground up I want to see if anyone has already done this kind of work or thinks its a wasteful pursuit for some other reason I'm overlooking.

DO
$$
DECLARE
    seqname text;
    nspname text;
    seqval bigint;
BEGIN
    FOR nspname, seqname IN select n.nspname, c.relname FROM pg_class c INNER JOIN pg_namespace n ON (c.relnamespace = n.oid) WHERE c.relkind = 'S' AND n.nspname = 'public' LOOP
        EXECUTE format('SELECT last_value FROM %I.%I', nspname, seqname) INTO seqval;
        PERFORM setval( quote_ident(nspname)||'.'||quote_ident(seqname), seqval + 0);
    END LOOP;
END;
$$ LANGUAGE plpgsql;