function lngth = fib(n)
if n<=1, error('N must be a positive integer„2'), end
x=[1 1];k=2;
while  x(2)
   x(1)=mod(x(1)+x(2),n);
   x=fliplr(x);
   k=k+1;
end
lngth=k;
