function  N  = vide( d )


X=0;
X=Ehren(X,5);
k=1;
while (X~=0)
    X = Ehren(X,5);
    k=k+1;
end
N=k;
endfunction

