function [etiq] = recurs(A)
[m,n] = size(A); %Número de filas y columnas

etiq = zeros(m,n);
label = 1;

for i=1:m
    for j =1:n
        if A(i,j) != 0
            [etiq,A] = meter(etiq,A,label,i,j);
            label = label+1;
        end
    end
end