CREATE OR REPLACE FUNCTION FECHASER (cadena varchar2) return number
is
numero number := 1;

begin
 FOR i IN 1..LENGTH(cadena) LOOP