(45 . 7)(45 . 7) 25 begin 26 27 -- XY_Lo:XY_Hi := X * Y 28 FZ_Mul_Egyptian(X, Y, XY_Lo, XY_Hi); 29 FZ_Mul_Comba(X, Y, XY_Lo, XY_Hi); 30 31 -- Product := XY mod M 32 FZ_Mod(XY, Modulus, Product);