search(a,b)=\ for(l=a,b,\ if( (isprime(l) & ( (kro(2,l)==(-1) & (l+1)% 11^3 ==0) || \ (kro(2,l)== (1) & (l-1)% 11^3 ==0) ) ),\ d=8*l^2;\ u=unit(d);\ print(l," ",valuation(imag(u),11)," ",myclassno(l)," ", ordr(l) );\ u=u^2;\ print(l," 2 ",valuation(imag(u),11)," ",myclassno(l)," ", ordr(l) );\ u=u^3;\ print(l," 6 ",valuation(imag(u),11)," ",myclassno(l)," ", ordr(l) );\ u=u^2;\ print(l," 12 ",valuation(imag(u),11)," ",myclassno(l)," ", ordr(l) ),);\ );\ ordr(l,u,uu,ww,k,res,v)=\ u=unit(8);\ ww=quadgen(8);\ uu=unit(8*l^2);\ uu = real(uu) + imag(uu)*l*ww;\ res=1;\ for(k=1,l+1,\ v=u^k;\ if((v==uu || v^(-1)==uu || v == -uu || v^(-1)==-uu),res=k,));\ res myclassno(l,rs) = \ rs= (l-kro(2,l))/ordr(l);\ if(norm(unit(8*l^2))==1,rs=2*rs,);\ rs