~EA~ESMALL_PRIMES-;>A-;>A-;>A-; > A~=FindRSAPrime=,A~?ta?pS~@bp@ ApS~@cDigitsp @pS~=NN_Assign2Exp=~?ua?pSp@/pSp @pS=a?pSa?pSa?pSp @p S~=NN_Add=p @ ~? va  ?p S~@ cp  @p Sp  Sa ?p  Sp  S~= NN_Mod  =a  ?p Sa  ?p Sa ?p Sp  @p  S =p  @ & AO5RSAPrime>p @ &AX]$Aa1?p1S~@aDigitsp1@p1S1 =p1A?~?aMinus1a2?p2Sp2@p2Sa2?p2Sp2@p2 S2=p4@ p4 Sp4@ p4 S~>ProbablePrime4>&4AO4RelativelyPrime4>&4AX4 ApD@ pD SpD@ pD S~>SmallFactorD>&DAXDFermatTestD>&DAXD(ApQA?pSA WSpT?aU?pUSpU@pUSpU@pUSaU?pU SpUApUSU =aV? pV SpVA pV S~=NN_ZeroV=pV? &VAOV,Aam?pmSpm@pmSm =pm@ pm@ pmA?an?pnSan?pnSpn Spn  Spn Spn S~= NN_ModExpn =ap? pp Sap? pp Spp@ pp Sp=&pAXp%$Aa?pSp@pS =a?pSp@pSp @pS=a?pSp@pSa?pSp@p S~=!NN_Gcd!=a?pSp@pS =pA?a? p Sa? p Sp@ p S=&AXWAI