A Procedure to Print a String in Reverse

CREATE OR REPLACE PROCEDURE ReverseOf(input IN VARCHAR2) IS
        REVERSE VARCHAR2(50);
BEGIN
        FOR i IN REVERSE 1..LENGTH(input) LOOP
                REVERSE := REVERSE||''||SUBSTR(input, i, 1);
        END LOOP;
        DBMS_OUTPUT.put_line('The reverse of '||input||' is '||REVERSE||'.');
END;
/
EXEC ReverseOf('TSEC');