~EA~ESMALL_PRIMES-;>A-;>A-;>A-; > A~=FindRSAPrime=,A~?ta ?p S~@bp @ Ap S~@cDigitsp  @p S~=NN_Assign2Exp =~?ua ?p Sp @/ p Sp  @p S =a?pSa?pSa?pSp @p S~=NN_Add=p @ ~? va ?pS~@ cp @pSp Sa?p Sp S~= NN_Mod =a ?pSa ?pSa?pSp @p S=p @ & AO5RSAPrime!>p! @ &!AX!]$Aa7?p7S~@aDigitsp7@p7S7 =p7A?~?aMinus1a8?p8Sp8@p8Sa8?p8Sp8@p8 S8=p:@ p: Sp:@ p: S~>ProbablePrime:>&:AO:RelativelyPrime:>&:AX: ApJ@ pJ SpJ@ pJ S~>SmallFactorJ>&JAXJFermatTestJ>&JAXJ(ApWA?pYA WYpZ?a[?p[Sp[@p[Sp[@p[Sa[?p[ Sp[Ap[S[ =a\? p\ Sp\A p\ S~=NN_Zero\=p\? &\AO\,Aas?psSps@psSs =ps@ ps@ psA?at?ptSat?ptSpt Spt  Spt Spt S~= NN_ModExpt =av? pv Sav? pv Spv@ pv Sv=&vAXv%$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