Consulta para la creación de sinónimos de un esquema a otro

SELECT  'CREATE SYNONYM  OE.'||OBJECT_NAME||'  FOR HL.'||OBJECT_NAME||';'
FROM ALL_OBJECTS
WHERE OWNER= USER
AND OBJECT_TYPE IN ('TABLE','VIEWS','PROCEDURE','PACKAGE');