Script to get Replicating letters as per position of the character

DECLARE
   l_name    VARCHAR2 (200) := '&Name';
   l_count   NUMBER;
   v_len     NUMBER := 1;
   m_len     NUMBER := 1;
   l_fchar   CHAR (1);
   l_con     VARCHAR2 (2000);
BEGIN
   SELECT LENGTH (l_name) INTO l_count FROM DUAL;

   FOR i IN 1 .. l_count
   LOOP
      FOR m IN 1 .. (v_len)
      LOOP
         SELECT SUBSTR (l_name, (v_len), 1) INTO l_fchar FROM DUAL;

         l_con := l_con || l_fchar;
      END LOOP;

      v_len := v_len + 1;
      m_len := m_len + 1;
      DBMS_OUTPUT.PUT_LINE (l_con);
   END LOOP;
END;

Below is the screenshot attached.