function [ VC2 ] = VC_mocnina(VC,n )
% function [ VC2 ] = VC_mocnina(VC,n )
% C^n

VC2=string2VC('1');
PVC=VC;

while n>0
    zb=mod(n,2);
    if zb
        VC2=VC_nasob(VC2,PVC);
    end
    n=floor(n/2)
    if n>0
        PVC=VC_nasob(PVC,PVC);
    end
end

end

