I found one way to do this, but I suspect there's a better way.
EXECUTE IMMEDIATE $$ DECLARE stmt STRING; BEGIN stmt := CONCAT('GRANT ROLE X TO USER ', CURRENT_USER(), ';'); EXECUTE IMMEDIATE stmt; END; $$ ;