function res = testn( n )

set(0,'RecursionLimit', 1060)

function i_k = som(k)
        som(k) = 0;
        PP = P(k);
        l = length (PP);
        for j = 1:l
            for jj = 1:l
                som(k) = som(k) + 1
            end
        end
        i_k = som(k)
    end

res = som (5)
            

end

